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IDENTIFICATION 

PRODUCT NAME: CNDUSAO DUV11 OFLNE RCVR TMG 
PRODUCT CODE :AC-T453A=MC 

PRODUCT DATE :DEC,1982 

MAINTAINER :DIAGNOSTICS SERVICES/ISS 
AUTHOR: K.LIND 


COPYRIGHT (C) 1982,1983 
DIGITAL EQUIPMENT CORPORATION, MAYNARD MASS. 


THE toa ns IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION. 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR ANY ERRORS 
THAT MAY APPEAR IN THIS DOCUMENT. 


THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED UNDER A LICENSE AND 
MAY ONLY BE USED OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE. 


DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE OF 
RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL. 


. REM 


-REM 


SEQ 0001 


/CNDUS=A MACY11 30(1046) 14=-DEC-82 09:59 PAGE 57=1 
CNDUS1.M11 


2.2 


10=DEC=82 13:49 


-REM * 
GENERAL DESCRIPTION 


«REM 
THE DUV11 OFFLINE RECEIVER TIMING TESTS VERIFY THAT THE 
RECEIVER LOGIC AND ASSOCIATED ERROR FLAGS ASSERT 
AT THE PROPPER TIME 


-REM 
REQUIREMENTS 


PDP=11/21 COMPUTER (LSI) 
DUV11 SYNCRONOUS/ISOCRONOUS OPTION 
ONE CONSOLE TELETYPE OR EQUIVALENT 


STORAGE 
THE PROGRAM LOADS INTO 4K OF MEMORY WITH BOOTSTRAP 
LOADING PROCEDURE 


THE STANDARD PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED. 


STARTING ADDRESS 
FOR ae eee 


STARTING PROCEDURE 
CONTROL SWITCH SETTINGS 
NOTE: ALL SWITCHES RESIDE INTERNAL TO THE CPU AT ADDRESS 
- THESE MAY BE SET VIA THE CONSOLE TTY BY DIRECTLY 
MODIFYING LOC. 176. 


NOTE: RUNNING UNDER APT-11, as WITCH REGIST 


IT ER 
. pes AE SBEL ITY OF THE 
= CONNECTOR 
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/CNDUS1.M11 
j 


4.1.1 


4.1.2 


4.1.3 


4.1.4 


4.2 


4.3 
4.3.1 


4.3.2 


4.3.3 


THE USER CHANGES THE CONTENTS OF THIS LOCATION 
WHEN BUILDING THE E TABLE, BY ANSWERING THE 
PROMPT “SWITCH 2°°. 


AFTER PROGRAM LOAD (INITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART OR TO RUN MULTIPLE DEVICES 


Sw00=1 
TO START PROGRAM AT SELECTED TEST AFTER A PROGRAM RESTART 
sudiet (ONLY IN SINGLE DEVICE TESTS) 


TO LOCK ON SELECTED TEST AFTER A PROGRAM RESTART 
(ONLY IN SINGLE DEVICE TESTS) 


Swi 
NOTE1: IN GENERAL SWO1 WILL BE USED WHEN SW14=1 IS USED 
NOTE2: WITHOUT SWO1=1 ‘‘LOCK ON TEST’’ WILL DEFAULT TO TEST 1 
STARTING ADDRESS 
THE STARTING ADDRESS FOR ALL TESTS IS 000200 
THE RETARTING ADDRESS FOR ALL TESTS IS 000200 - 
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 0007.00 
THE STARTING ADDRESS TO LOCK ON TEST IS 000200 
PROGRAM AND/OR OPERATOR ACTION 
INITIAL PROGRAM START 
4.3.1.1 LOAD PROGRAM INTO MEMORY WITH ABSOLUTE LOADER 
4.3.1.2 SET SWITCH REGISTER (LOC. 176) TO ZERO. 
4.3.1.3 TYPE 2006. 
4.3.1.4 PROGRAM WILL START. 
-REM 
4.3.1.5 THE PROGRAM WILL TYPE ‘DUV11 CNDUS-A TAPE C* (ONCE ONLY) 
-REM 
4.3.1.6 THE PROGRAM WILL TYPE ‘'R’* TO INDICATE THAT IT IS ABOUT 
TO START TESTING ,AND THEN TESTING WILL BEGIN 
PROGRAM RESTART WITH ALL SWITCHES DOWN 
4.3.2.1 THE PROGRAM WILL TYPE ‘'R’* AND WILL COMMFNCE TESTING 


PROGRAM RESTART WITH SwOO=1 


SEQ 0003 


a ee 
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i'CNDUS1.M11 10=DEC=82 13:4 SEQ 0004 
4.3.3.1 SET SWITCH REGISTER (LOC. 176) TO A 000001. 
4.3.3.2 TYPE 200G. 
4.3.3.3 PROGRAM WILL START. 


4.3.3.4 THE PROGRAM WILL TYPE ** 1ST DEVICE: RECEIVER CONTROL REGISTER 
ADDRESS*’ AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.5 TYPE IN THE ADDRESS OF THE FIRST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED 
FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE ‘°'?°° 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.4 


4.3.3.6 THE PROGRAM WILL TYPE ‘VECTOR ADDRESS~"* AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.7 TYPE IN THE BASE RECEIVER INTERRUPT VECTOR ADDRESS 
FOR THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED ,THE PROGRAM WILL TYPE *'?"° 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.6 


4.3.3.8 THE PROGRAM WILi TYPE ‘‘ARE YOU RUNNING MULTIPLE DEVICES ?°° 
(Y OR N)="' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.9 TYPE IN THE APPROPRIATE ANSWER YES OR WC FOLLOWED BY A 
<CARRIAGE RETURN> 


~~ 


IF AN INCORRECT ANSWER IS GIVEN, THE PROGRAM WILL TYPE °'?°° 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.8 


IF A *'NO*’ ANSWER IS GIVEN: JUMP TO SECTION 4.3.3.12 
IF A *'VES'* ANSWER IS GIVEN: THE NEXT QUESTION IS ASKED 


4.3.3.10 THE PROGRAM WILL TYPE ‘LAST DEVICE:RECEIVER CONTROL 
REGISTER ADDRESS~"* AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.11 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL REGISTER 


ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE °'?"* 
AND WILL THEN REPEAT THE MESSAGE OF 4.3.3.10 
NOTE:ALL ADDRESSES SHALL BE CONTIGUOUS “e 


4.3.3.11.1 IF AN ‘OUT OF RANGE** ADDRESS IS TYPED 
E. E THAN 16 (10) DEVICES AWAY (UPWARDS)... 


MOR ee .- THE 
PROGRAM WILL TYPE ‘OUT OF RANGE:RETYPE LAST DEVICE RXCSR ADDRESS~"* 





oe ee ee + ees 
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gmat M11 


10=DEC=82 13:4 


AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.11.2 TYPE IN THE ADDRESS OF THE LAST RECEIVER CONTROL 
REGISTER ADDRESS OF THE DUV11 TO BE TESTED FOLLOWED 
BY A <CARRIAGE RETURN> 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘*?°° 
AND WILL REPEAT THE MESSAGE OF 4.3.3.11.1 


IF A DEVICE ADDRESS 7 THAN 1ST DEVICE ADDRESS IS TYPED......eeee 
-+-eSCHOOLS OUT.........THERE IS NO PROTECTION FOR THIS. 
THE PROGRAM WILL DEFAULT TO TWO DEVICES ACTIVE (UPWARDS FROM 
1ST DEVICE ADDRESS). THE SAME APPLIES TO IDENTICAL ADDRESSES 
TYPED FOR FIRST AND LAST DEVICE. 
OBSERVE LOCATION @ ACTREG: SEE SECTION 7.2 


4.3.3.12 THE PROGRAM WILL TYPE ‘# OF SYNC CHARS 
SELECTED (1 OR 2)-"* AND WAIT FOR AN INPUT FROM THE TELETYPE 
As oy 1 ids TO MANUAL FOR PROPER SWITCH SETTINGS OF 


4.3.3.13 TYPE IN THE APPROPRIATE ANSWER ‘1°’ OR *'2'* FOLLOWED 
oy OB mt iy RETURN>.(NOTE:ALL MULTIPLE DEVICES MUST 


IF AN INCORRECT ANSWER IS TYPED ,THE _— WILL TYPE *“?°° 
AND WILL REPEAT THE MESSAGE OF 4.3.3.12 


4.3.3.14 THE PROGRAM WILL TYPE ** IS SEC XMIT SWITCH E55-2 ON? (Y OR N)-"" 
AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.15 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <CARRIAGE RETURN>.(NOTE THAT ALL MULTIPLE DEVICES 
MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,THE meee WILL TYPE °'?°* 
AND WILL REPEAT THE MESSAGE OF 4.3.3.14 


4.3.3.16 THE PROGRAM WILL TYPE "*IS SEC REC SWITCH E55-3 ON? 
(Y OR N)="' AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.17 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


BY A <fARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED THE > ce WILL TYPE °*?"* 
AND WILL REPEAT THE MESSAGE OF 4.3.3.16 


4.3.3.18 THE PROGRAM WILL TYPE “IS OPT CLR ENABLE SWITCH 
E55-1 ON? (Y OR N)="* AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 
4.3.3.19 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED 


SEQ 0005 


cc > 
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10=DEC=82 13:49 
BY A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,THE 7 WILL TYPE °'?"° 
AND WILL REPEAT THE MESSAGE OF 4.3.3.18 


4.3.3.20 THE PROGRAM WILL TYPE Ray YOU RUNNING IN MAINT. 
MODE EXTERNAL ? AND ......DO YOU HAVE THE EXTERNAL MODEM 
BYPASS JUMPER CONNECTOR ON ? (Y OR me "* AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD 


4.3.3.21 TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY 


A <CARRIAGE RETURN>. (NOTE: ALL MULTIPLE DEVICES MUST BE THE SAME) 


IF AN INCORRECT ANSWER IS TYPED ,THE PROGRAM WILL TYPE ‘‘?°* 
AND WILL REPEAT THE MESSAGE OF 4.3.3.20 


4.3.3.22 THE PROGRAM WILL TYPE ‘'R'’ TO INDICATE THAT IT 
HAS STARTED AND WILL COMMENCE TESTING AT TEST 1 


PROGRAM RESTART WITH SWO1=1 
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
eeolT WILL NOT WORK IF MULTIPLE DEVICES ARE SELECTED 


IF MULTIPLE DEVICES WERE PREVIOUSLY SELECTED,LOAD 000200, 
nod SELECT SWOO=1 AND ANSWER ''NO’’ TO THE MULTIPLE DEVICE QUESTION 


4.3.4.1 SET SWO1=1 IN SWITCH REG (LOC. 176) 
4.3.4.2 TYPE 200G. 
4.3.4.3 PROGRAM WILL START. 


4.3.4.4 THE PROGRAM WILL TYPE ‘TEST PC~"* AND WAIT FOR AN INPUT FROM 
THE TELETYPE KEYBOARD 


4.3.4.5 TYPE_IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 
BE STARTED FOLLOWED BY A <CARRIAGE RETURN> 


4.3.4.6 THE PROGRAM WILL TYPE ‘'R'* TO INDICATE THAT IT HAS STARTED 
TESTING AT THE SELECTED TEST 


NOTE: CARE MUST BE TAKEN WHEN THIS FEATURE IS USED 
SINCE THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS 
THAT IS IN THE MIDDLE OF A TEST 
PROGRAM RESTART WITH SW14 =1 
NOTE: THIS WILL ONLY WORK WHEN A SINGLE DEVICE IS SELECTED 
SEE NOTE IN 4.3.4 FOR MORE DETAILS 
4.3.5.1 SET SW14=1 IN SWITCH REG. (LOC. 176) 


4.3.5.2 TYPE 200G. 


a ee Ce ee — 


SEQ 0006 
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4.3.5.3 
4.3.5.4 


4.3.5.5 


4.3.5.6 
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PROGRAM WILL START. 


THE PROGRAM WILL TYPE “‘LOCK ON SELECTED TEST ? (Y OR N)~"" 
AND WAIT FOR AN INPUT-FROM THE TELETYPE KEYBOARD 


TYPE IN THE APPROPRIATE ANSWER YES OR NO FOLLOWED BY A 
<CARRIAGE RETURN> 


IF A_NO ANSWER IS GIVEN: THIS LOCK ON TEST WILL BE IGNORED 
AND THE PROGRAM WILL TYPE ‘'R'’ TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 


IF A YES ANSWER was GIVEN: THE PROGRAM WILL ACT AS FOLLOWS... 
THE PROGRAM WILL TYPE ''R’’ TO INDICATE THAT IT HAS STARTED 
TESTING AT TEST 1 AND WILL TREMAIN IN TEST 1 UNTIL HALTED 

OR IF ANY KEY IS STRUCK ON THE TELETYPE ,THE PROGRAM 
WILL FREEZE ON THE NEXT TEST UNTIL A KEY IS STRUCK ON 

THE TELETYPE AND SO FORTH THRU THE APROGRAM. IF § S501 =1 IT 
WILL PERFORM AS IN SECTION 4.3.4 ALLOWING ONE TO IREEZE 

ON A SELECTED TEST RATHER THAN DEFAULTING TO TEST 1 


OPERATING PROCEDURE 


OPERATIONAL SWITCH SETTINGS (INTERNAL TO THE CPU, ACCESSED VIA LOC. 176). 
5 =1 HALT ERROR 


N 
on ON CURRENT TEST 


I ONS 
ESCAPE TO NEXT TEST ON ERROR 
OP ON ERROR 


RESTART PROGRAM AT SELECTED TEST 
RESELECT VECTOR AND CONTROL eeetaree ADRESSES 
ETERS AFTER A_PROGRAM RESTA 


&PARAM 
TO INHIBIT “END OF PASS'’ TYPEOUT = TURN TELETYPE OFF 


ERRORS 


ERROR HALTS (UNDER LSI ALL HALT ERRORS RETURN CONTROL TO 0.D.T.) 
THERE ARE FOUR DISTINCT ERROR TYPEOUTS 


PC+2 = 


WHERE Pt “e 1S, THE ADDRESS OF THE CALL TO THE ERROR HANDLER +2 
REFER TO THE ABOVE ‘‘HLT’’ IN DIAGNOSTIC FOR ERROR DESCRIPTION 


CHECK ADDRESS @ RXCSR: TO LOCATE THE DEVICE PRESENTLY UNDER 
TEST WHEN RUNNING MULTIPLE DEVICES 


PC A 
REGI 
TEXKXK 


,fesisten ERROR PC 
EXPECTED ACTUAL 
YvYYYY 222222 


WHERE 16XXXX IS THE ADDRESS OF THE FAILING DEVICE REGISTER 
WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 


SEQ 0007 


‘CNDUS=A MACY11 30(10 046) PY ie 09:59 PAGE 57-7 
‘CNDUS1.M11 10=DEC=82 13:4 SEQ 0008 
WHERE 222272 !S THE ACTUAL CONTENTS OF THAT REGISTER 
6.1.35 PC Tite = —— say PC 
REGI PECTED ACTUAL 
16XX VYYYYY 222222 
WHERE 16XXXX IS THE ADDRESS OF THE FAILING RECEIVER (RXDBUF) REGISTER 
WHERE YYYYYY IS THE EXPECTED DATA CONTENTS OF THAT REGISTER 


WHERE 2Z222ZZ IS THE ACTUAL DATA CONTENTS OF THAT REGISTER 


6.1.4 Ct2 a RANSMITTER ERROR PC 
| REGIS EXPECTED ACTUAL 
ttt YYYYYY 722222 


WHERE 16XXXX IS THE ADDRESS OF THE FAILING TRANSMITTER (TXCSR) REGISTER 
WHERE YYYYYY IS THE EXPECTED CONTENTS OF THAT REGISTER 
WHERE 22Z2Z2Z IS THE ACTUAL CONTENTS OF THAT REGISTER 


6.1.5 ERROR DESCRIPTIONS 
SEE LISTINGS FOR DETAILS OF ERRORS 


6.2 ERROR RECOVERY 


REQUIRED TO CONTINUE TESTING 


6.2.2 Swi5S =1 
IF THE PROGRAM IS RUN WITH SW15 =1 ,TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED PRESS THE PROCESSOR 
CONSOLE ‘‘CONTINUE SWITCH’ 


NOTE: THE PC + 2 OF THE ‘HLT’ WILL BE DISPLAYED IN THE DATA LIGHTS 


6.2.3 ILLEGAL INTERRUPTS 
IF AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT SELECTED 
DURING PROGRAM INIT gt ie THE PROGRAM WILL HALT IN 
THE TRAPCATCHER. THE ADDRESS AT WHICH THE PROGRAM 
HALTS IS 2 GREATER THAN THE ADDRESS TO WHICH THE INTERRUPT 
OCCURED. THE PROGRAM MUST BE RESTARTED AT 000200 TO 
RECOVER FROM THIS ERROR. 


6.2.4 rt} Me TROUBLESHOOTING AIDS ERRCNT: - PASCN 
CHECK TWO TAG LOCATIONS FOR TOTAL # OF ERRORS AND PASSES RESPECTIVELY. 
LOADING "900200 AND RESTARTING WILL CLEAR THESE LOCATIONS. 


6.3 END OF PASS ROUTINE 
THIS TYPEOUT i Dll HERE FOR CONVENIENCE 


| 

j 

| 

| 

6.2.1 SwWwi5 =0 

IF THE PROGRAM IS RUN WITH SW15 =0 ,NO OPERATOR ACTION IS 
| IT IS IN THE F 


ae a se ee ee i eee ee oe - + oe — --— -- 
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7.2 


7.2.1 


7.2.2 


7.3 


7.3.1 


7.4 








END OF PASS TAPE Y 
TOXXXX = DEVICE 


WHERE Y IS THE TAPE LOADED 

WHERE 16XXXX IS THE DEVICE'S BASE REGISTER ADDRESS 
TO INHIBIT THIS TYPEOUT = TURN TELETYPE OFF 
RESTRICTIONS 


MULTIPLE DEVICES 
JP TO 16(10) DEVICES MAY BE TESTED. HOWEVER, THEY 
MUST HAVE CONTIGUOUS ADDRESSES AND VECTORS 


NOTE: IF ALL DEVICES UNDER TEST WAVE THE SAME INTERRUPT VECTOR 
YOU CAN CHAN pee pti OeBASELV :NEXT BLOCK 
(VECTORS)"* TO “ZERO: #0,BASEIV"; 

THEREBY THE VECTOR ADDRESSES WILL NOT BE’ 

UPDATED AFTER EACH PASS. 


DISQUALIFYING DEVICES WHEN RUNNING MULTIPLE DEVICES 


WHEN RUNNING MULTIPLE DEVICES AN ACTIVE BIT IS SET 
FOR EACH DEVICE RUNNING UNDER TEST IE. BIT O FOR 
DEVICE 0 ,BIT 15 FOR DEVICE 15 

TO DISQUALIFY DEVICES: 


IF DEVICE 0 IS TO BE DISQUALIFIED ,SIMPLY RESTART 
PROGRAM WITH SWOO =1 AND OMIT THE FIRST DEVICE. 


IF HOWEVER, DEVICES 1 THRU 15 OR ANY COMBINATION THEREOF 
ARE TO BE DISQUALIFIED....LOAD THE LOCATION OF ACTREG: 
OBSERVE THE ACTIVE BITS (ACTIVE =i, NONACTIVE = 0) 

AND DEPOSIT 0 WHERE THOSE DEVICES ARE TO BE DISQUALIFIED 


7.2.2.1 TO RESTART...TYPE 200G.. 
THE PROGRAM WILL CONTINUE WITH THE DEVICE IT WAS IN BEFORE HALTING. 


7.22202 222222-0R -SET SWOO=1 IN SWITCH REG (LOC. 176) AND TYPE 200G.... 
ANSWER THE QUESTION :1ST DEVICE : ETC......scece 
weeeTHE PROGRAM WILL CONTINUE with DEVICE 0 


7.2.7.3 IF ALL DEVICES ARE DISQUALIFIED BY MISTAKE _ THE PROGRAM 
WILL TYPEOUT AN ERROR MESSAGE.......TYPE 200G. 


CABLE DELAYS 
NOTE: EXTERNAL LOOP BACK TESTS ONLY (MODEM CABLE WITH H315 CONNECTOR ON) 


TO PROVIDE SUFFICIENT DELAY FOR CLOCK SIGNAL OVER THE CABLE, 

LOCATION “‘HOLD:'* MUST BE MODIFIED TO ACCOMODATE FOR FASTER MACHINES. 
PRESENTLY “'HOLD:"* =20 IS SUFFICIENT TIME ON AN 11/21 MACHINE. 

BASICALLY DON'T TRY TO EXCEED 10K TO 12K RATE USING THE EIA DRIVERS 


TO USE THE "*XOR’* TESTER ,THE BRANCH AROUND THE ‘‘xOR"’ 


SEQ 0009 


-—-- a ee oe ee + CS + 


“CNDUS“A MACY11 30(1046) JéqpEC~82 09:59 PAGE 57~9 
‘CNDUST.M11-10=DEC-82 13:4 SEO 0010 


| CODE MUST BE PATCHED TO A “'NOP’’, (SEE LISTINGS FOR DETAILS) 


8. DEFAULT PARAMETERS 
1ST DEVICE: RECEIVER CONTROL REGISTER ADDRESS= RXCSR: 174300 
VECTOR ADDRESS=- DURIV: 330 
ARE YOU RUNNING MULTIPLE DEVICES ?= NO MULTD: 0 
LAST DEVICE: RECEIVER CONTROL REGISTER ADDRESS= LASTADD: 0 
# OF SYNC CHARS SELECTED - 2 SYNCNO: 377 
IS SEC XMIT SWITCH E55-2 ON?= YES SEXMIT: 377 
IS SEC REC SWITCH E55=3 ON?= YES SEREC: 377 


IS OPT CLR ENABLE SWITCH E55=1 ON?= YES OPTCLR: 377 


DO YOU HAVE THE EXTERNAL MODEM BYPASS JUMEER 
CONNECTOR ON (H315)= YES JMRBY: 377 


| 

| 

| 

| 

| 

9. PROGRAM DESCRIPTION 
| 

| 

L 


«REM * 
9.1 THIS PROGRAM PERFOFMS THE OFFLINE RECEIVER TIMING TESTING 
OF THE DEVICE 
SEE LISTING FOR DETAILS 
* 
-REM * 


10. FLOW CHARTS: RECEIVER ccmecnomeetcisites: FLOW, TRANSMITTER & RECEIVER FLOW 


11. REVISION HISTORY 
yy} DIAGNOSTIC = cote tae TO WORK IN SBC aid 3) PROCESSOR 
PRIORITY 340 WAS CHA TO 300 WHEREVER ENCOUNT 
DEFAULT CSR AND VECTOR. ADDRESSES WERE CHANGED 
TT ND OF PROGRAM 


DIAGNOSTIC WAS RENAMED TO CNDUSAO. 
12. LISTINGS 


“CNDUS=A MACY11 30(1046) 14=DEC-82 09:59 PAGE 58 
iCNDUS2.M11 30-OCT-82 12:20 SEQ 0011 
6488 
6489 zIN ORDER TO BE SPECIFIC TO SBC 11/21 PROCESSOR 
6490 [ODT VECTOR ADDRESS AND BEVNT WERE INITIALIZED AND 
6491 TALL PRIORITY WORD 340 WERE MODIFIED TO 300. 
6586 
6587 
6598 
6612 F 
6613 
6614 
6675 
6676 
6881 
7009 , 
7010 .SBTTL APT COMMUNICATIONS ROUTINE 
(2) SAREE AEEREE EEE REE REE EERE EEE REE EREEEEEREEEREKEEEEREEREEERE 
(1) 000000 112767 000001 000236 $ATY1: MOVB #1,$FFLG ::TO REPORT FATAL ERROR 
(1) 000006 112767 000001 000226 $ATY3: MOVB 4#1,$MFLG ::TO TYPE A MESSAGE 
(1) 000014 000403 BR SATYC 
(1) 000016 112767 000001 000220 $ATY4: MOVB 4#1,$FFLG ::TO ONLY REPORT FATAL ERROR 
(1) 000024 SATYC: 
(3) 000024 010046 MOV RO,-(SP) ::PUSH RO ON STACK 
(3) 000026 010146 MOV °—-R1,=(SP) *:PUSH R1 ON STACK 
(1) 000030 105767 000206 TSTB  °s- SMFLG 33SHOULD TYPE A MESSAGE? 
(1) 000034 001450 BEQ ZIF NOT: BR 
(1) 000036 122767 000001 001502 CMPB  =s-s HAP TENV, SENV 3 ;0PERATING UNDER APT? 
(1) 000044 001031 BNE z T: 
(1) 000046 132767 000100 001473 BITB , #APTSPOOL, SENVM 3s SHOULD SPOOL MESSAGES? 
(1) 000054 001425 BEQ ‘3$ F NOT: BR 
(1) 000056 017600 000004 MOV a4($P), RO t:GET MESSAGE ADDR. 
(1) 000062 062766 000002 000004 ADD #2,4(SP) RETURN ADDR. 
(1) 000070 005767 001432 1$: TST SUSGTYPE ::SEE IF BONE W/ LAST XMISSION? 
(1) 000074 001375 BNE 1$ t:IF NOT: WAIT 
(1) 000076 010067 001440 MOV RO, $MSGAD 
(1) ::PUT ADDR IN MAILBOX 
(1) 000102 105720 2s: TSTB ss (RO) + zzF IND END OF MESSAGE 
(1) 000104 001376 BNE . $ ) 
(1) 000106 166700 001430 SUB SMSGAD,RO ::SUB START OF MESSAGE 
(1) 000112 006206 ASR RO _ $3GET MESSAGE LNGTH IN WORDS 
(1) 000114 010067 001424 MOV RO, $MSGLGT ::PUT LENGTH IN MAILBOX 
(1) 900120 012767 000004 001400 MOV #4. SMSGTYPE *:TELL APT TO TAKE MSG. 
(1) 000130 017667 000004 000016 3$: MOV 04 (SP) 4$ ¢3PUT MSG ADDR IN JSR LINKAGE 
(1) 000136 062766 000002 000004 ADD (SP) :BUMP RET URN ADDRESS 
(3) 000144 016746 177626 MOV ee -(SP) :2:PUSH 199776 ON STACK 
(1) 000150 004767 012702 JSR PC, $TYPE Z:CALL TYPE MACRO 
(1) 000154 000000 4$: -WORD 0 
(1) 000156 5$: ; 
(1) 000156 105767 000062 10$: TSTB  $FFLG 33SHOULD REPORT FATAL ERROR? 
(1) 000162 001416 BEQ 12$ F NOT: BR 
(1) 000164 005767 001356 TST SENV : [RUNNING UNDER APT? 
(1) 000170 001413 BEQ 12$ 
(1) 000172 005767 001330 11$: TST SMSGTYPE . :IFINISHED LAST MESSAGE? 


000176 001375 BNE 11$ z21F NOT: 


c————— 





i 


m1 
CNDUS=A MACY11_30(1046) 14-DEC-82 09:59 PAGE 58-1 
/CNDUS2.M11 30-OCT-82 12:20 APT COMMUNICATIONS ROUTINE SEQ 0012 
| C1 000200 017667 000004 001322 MOV Q4(SP),SFATAL ;;GET ERROR # 
| G1) 004206 062766 000002 000004 ADD = #2, 4( SP) BUMP RETURN. ADDR. 
/ (1) 000214 005267 +=001306 INC SASGIVPE SsTELL APT 1 TAK E ERR 
(1) 000220 105067 000020 12$:  CLRB T:CLEAR FATAL FLAG 
(1) 000224 105067 000013 CLRB sere Ti CLEAR tog. at 
(1) 000230 105067 000006 CLRB = $MFLG t:CLEAR MESSAGE FLAG 
(3) 00234 012601 MOV (SP)+,R1 + OP STACK INTO R1 
(3) 600236 012600 MOV (SP)+.RO POP STACK INTO RO 
(1) 00240 000207 RTS PC * RET RN 
(1) 00024 000 $MFLG: .BYTE 0 tIMESSG. FLAG 
(1) 00024 000 $SLFLG: .BYTE 0 
(1) ;LOG FLAG 
(1) 000244 000 SFFLG: .BYTE 6° ZrFATAL FLAG 
(1) 000246 
() 
(1) 000100 APTSPOOL=100 
(1) 000040 APTCSUP=040 
$TN=1 
7379 
7414 
7431 
7444 
7456 


EVEN 
| 000200 APTSIZE=300 
000001 APTENV=001 
7249 000001 
7375 
| 
| 


_—————————— 
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rr rr 


B 2 
/CNDUS“A MACY11 30(1046) 14-DEC=82 09:59 PAGE 61 
CNDUSA.M11 30-OCT-82 10:55 APT COMMUNICATIONS ROUTINE 
8143 zIN ORDER TO BE SPECIFIC TO SBC 11/21 PROCESSOR ALL PRIORITY 
| 8144 SWORD 340, WERE MODIFIED TO 300 AND PROGRAM RENAMED. 
| 8149 ~ENABLE 
i 8150 
| (2) :DUV11 CNDUS-4_ TAPE C 
(2) = COPYRIGHT 1997, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
(2) i STARTING PROCEDURE 
(2) :TYPE 2006 k 
(2) ‘PROGRAM WILL TYPE ‘DUV11 CNDUS-A TAPE C "’ 
(2) ; PROGRAM WiLL T — "'R'’ TO INDICATE THAT TESTING HAS STARTED 
(2) THE END eA BASS, PROGRAM WILL TYPE "END OF PASS TAPE C"’ 
(2) eNO THEN RESUME TESTING 
(2) ~SBTTL BASIC DEFINITIONS 
(2) Z*INITIAL ADDRESS OF THE STACK POINTER **#* 11° #2 
(2) 001100 STACK= 1100 
(2) -EQUIV EMT,ERROR Z:BASIC DEFINITION OF ERROR CALL 
(2) -EQUIV I0T,SCOPE ::BASIC DEFINITION OF SCOPE CALL 
(2) jtMISCELLANEOUS DEFINITIONS 
(2) 000011 11 7:CODE FOR HORIZONTAL TAB 
(2) 000012 ive 12 ::CODE FOR LINE FEED 
(2) 000015 CR= 15 ::CODE FOR CARRIAGE RETURN 
(2) 000200 CRLF= 200 7; CUDE FOR CARRIAGE RETURN-LINE FEED 
(2) 177776 PS= 177776 ::PROCESSOR STATUS WORD 
(2) 177776 STKLMT= S45 5e zzSTACK LIMIT REGISTER 
(2) 177772 PIRG= 177772 [PROGRAM INTERRUPT REQUEST REGISTER 
(2) 177570 DSWR= 177570 3 HARDWARE SWITCH REGIST ER 
(2) 177570 DDISP= 177570 DWARE DISPLAY REGIST 
(2) seeeee THE FOLLOWING opt’ eTaRt ADDRESS FOR SBC 14721 IS ADDED 
(2) 170000 ODTST= 17000 
(2) :*GENERAL PURPOSE REGISTER DEFINITIONS 
(2) 000000 RO= 20 3:GENERAL REGISTER 
(2) 000001 Ri= 21 3 RAL REGISTER 
(2) 00000¢ R2= %2 ::GENERAL REGISTER 
(2) 00000 R3= 23 [:GENERAL REGISTER 
(2) 000004 R4= 24 33 AL REGISTER 
(2) 000005 R5= 15 ::GENERAL REGISTER 
(2) R6= %6 S:GENERAL REGISTE 
(2) 000007 R7= “7 t:GENERAL REGISTER 
(2) SP= %6 t:STACK POIN 
+s) 000007 PC= %7 3:PROGRAM COUNTER 
(2) s*PRIORITY LEVEL DEFINITIONS 
(2) 000000 PRO= sO :;PRIORITY LEVEL 0 
(2) 000040 PRi= 40 s:PRIORITY LEVEL 1 
(2) 000100 PR2= 100 [PRIORITY LEVEL ; 
(2) 000140 PR3= —s«140 ::PRIORITY LEVEL 
(2) 000200 PR4= 00 S:PRIORITY LEVEL 4 
(2) 000240 PR5= 40 s:PRIORITY LEVEL 5 
(2) 000300 PR6= 00 s:PRIORITY LEVEL 6 
(2) 000340 PR7= 340 ::PRIORITY LEVEL 
| 


SEQ 0014 
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-*"SWITCH REGISTER’ SWITCH DEFINITIONS 
§w15= 0000 


| 100000 10 
040000 SWi4= 40000 
020000 SW13= 20000 
010000 Swi2= 10000 
004000 SWil= 400 
002000 Swi0= 2000 
001000 SwO9= 1000 
000400 SwO8= 400 
000200 sw07= 200 
000100 Sw06= 100 
000040 sw05= 40 
000020 Sw04= 20 
000010 SwO3= 10 
000004 Sw02= 4 
000002 SwOl= 2 
000001 swoo= 1 
-EQUIV 


EQUIV Sw00,SWO 


RRR ARA RRA ARR A ARR RRA ARRAS FARA RRAR AAA AAA AAA AAA AAA AAA AAO 
RIPQP IN INININININININININYGNINININYIAINGNINYNININONINYAININININININYNINPYPINININININININYPS NUNN NoNoNgNnyNnsfynyenorny 
0 eee 


:*DATA BIT DEFINITIONS (BITOO TO B1T15) 

100000 B1T15= 100000 

040000 BIT14= 40000 

020000 BIT13= 20000 

010000 BIT12= 10000 

004000 BIT11= 4000 

002000 BIT10= 2000 

001000 BITO9= 1000 

000400 BITOB= 400 

000200 BITO7= 200 

000100 BIT06= 100 

000040 BITOS= 40 

000020 BIT04= 20 

000010 BITO3= 10 

000004 BITO2= 4 

000002 BITO1= 2 

000001 BITOO= 1 
-EQUIV BITO9,BIT9 
“EQUIV B1108.8118 
-EQUIV B1T07.BIT 
-EQUIV B1106.8116 
-EQUIV BITOS,BITS 
-EQUIV BITO4,BIT4 
“EQUIV BIT03.B1T3 
“EQUIV BITO2.B1T2 
-EQUIV B1T01,B1T1 
-EQUIV BITOO.BITO 


— — + C+ ee Cee ee Ce ee ee ee 
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CNDUSA.M11 30-OCT-82 10:55 BASIC DEFINITIONS SEQ 001é 
(2) jeBASIC cpu" TRAP VECTOR , ADDRESSES 
| 2) 000004 ERRVE TIME OUT AND OTHER ERRORS 
| ©) 10 RESVEC= to : RESERVED AND ILLEGAL INSTRUCTIONS 
| 000014 TBITVEC=14 :"T’ BIT 
2) 000014 TRIVEC= 14 + TRACE TRAP 
| (2) 000014 BPTVEC= 14 He ed TRAP (BPT 
—  @) 000020 IOTVEC= 20 3IN PUT /OUTPUT TRAP HoT) **SCOPEe* 
(2) 000024 PWRVEC= 24 FAIL 
(2) 000030 EMTVEC= 30 :IERULATOR TRAP (EMT) **ERQORe* 
(2) 000060 TKVEC= 60 :iTTY KEYBOARD VECTOR 
(2) 000064 TPVEC= 64 Y PRINTER VECTOR 
(2) geeeee THE FOLLOWING eréix Vector AND LINE CLOCK VECTOR ARE INCLUDED 
(2) 000100 LKVEC= :100 ZzLINE CLOCK K VECTOR 
(2) 000140 BRKVEC= 140 7 :BREAK 


VECT 
(2) 000240 PIRQVEC=240 3 ;PROGRAM INTERRUPT REQUEST VECTOR 


—e ee 
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| CNDUSA.M11 


(2) 


ee a a a et a et er et a a a a ee ee es ee a a a ee a ee a ae a le ee a ee ae 


gesseggesss 


Fn ae Le hap hae he he oe, ee, ea ee, ct et a ce ee ee ee ee a a a a eee 
at a ot 


POPIPIPINDNININDNONINGNUNIPUNININININONNY NOP Po Nanay fnonongnsfonorornonrens 


000174 
000176 


000200 


RNSFEVYSRRVS 


000174 
000000 


000200 
000167 


001100 
000000 
177570 


14=DEC-82 09:59 PAGE 61-3 
BASIC DEFINITIONS 


sSTANDARD INTERRUPT VECTORS 


30-OCT-82 10:55 


001746 


.=174 
DISPREG:0 


SWREG:0 


JMP » START 


~WORD 0 
LIGHTS:177570 


os os oe 
oooooo 


PROGRAM CONTROL PARAMETERS 


So 


OSooooooe0eeony 


—_—— 


s ADDRESS or NEXT TEST TO BE EXECUTED 
;ADDRESS FOR LOCK ON CURRENT DATA 
; ADDRESS CONTAINING PASS COUNT 


sERROR COUNT 
STACK POINTER STORAGE 
PROGRAM VARIABLES 
2 TEMPORARY STORAGE=DELAY TIME FOR gots 
TEMPORARY STOR 


AGE= # cor SHIFTS PER C 


; TEMPORARY STORAGE= # TIMES A CHAR MOILL BE SENT 


PROGRAM COUNTER STORAGE 


:GO TO START OF PROGRAM 


SEQ 0017 





-—— 
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| 
| 
| 3PROGRAM_ CONVERSATIONAL PARAMETERS 
“BYTE 377 


n~ 
m 
7 


(2) 001146 = 377 SYNCNO: . :# OF SYNC CHARS REQ'D FOR SYNC'ZATION 
(2) 001147 = 377 SEXMIT: .BYTE 377 | :SEC XMIT JUMPER "IN" 

(2) 001150 = 377 SEREC: BYTE 377 SEC REC JUMPER "IN 

(2) 001151 = 377 OPTCLR: .BYTE 377 OPTIONAL JUMPER CLR “‘IN 

(2) 001152 000 MULTD: .BYTE 0 :NO MULTIPLE DEVICE FLAG 

(2) 001153577 SRB “BYTE 377 JEXTERNAL MODEM BYPASS JUMPER “IN‘* 
(2) 

(2) {PROGRAM MULTIPLE DEVICE PARAMETERS 

(2) 001154 000000 BASEADD: 0 ROG CONTROLLED 1ST DEVICE ADDR 

(2) 001156 000000 KEEPADD: 0 SAVED 1ST DEVICE. A 

(2) 001160 000000 LASTADD: 0 ;LAST DEVICE RXCSR ADDR 

(2) 001162 000000 BASEIV 0 :PROG CONTROLLED IV 

(2) 001164 000000 KEEPIV: 0 SAVED. INTR. VECTOR 

(2) 000 ACTREG: 0 ZACTIVE REGISTER ,,,MODIFY THIS 

(2) ZLOCATION TO DISQUALIFY OR QUALIFY 
(2) {DEVICES (1= RUN,» .0= DON'T RUN) 

(2) 001170 000000 ROTADD: 0 :ROTATING POINTER FOR ACTREG. .POINT 
(3) TO DEVICE PRESENTLY UNDER TEST WHEN RUNNING MULTIPLE DEVICES 
(2) ;PROGRAM CONTROL FLAGS 

(2) 001172 000 INIFLG: .BYTE 0 {PROGRAM INITIALIZATION FLAG 
(2) 001173 000 STFLG: <BYTE 0 3TEST STA 

(2) 001174 000 LOKFLG: .BYTE 0 {LOCK ON CURRENT TEST FLAG 
(2) 001176 EVE 

(1) 001400 7£1400 

(2) 

(2) 


ccc rte are — a aee 
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'CNDUSA.M11 30-OCT-82 10:55 BASIC DEFINITIONS SEQ 0019 
(2) 
; (2) 
(2) 
| (2) ZINSTRUCTION DEFINITIONS 
| 2) 005746 PUSH1SP=5746 § ;DECREMENT PROCESSOR STACK 1 WORD =TST -(SP) 
(2) 005726 POP1SP=5726 S INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
(2) 010046 PUSHRO=10046  § :SAVE RO ON STACK =MOV RO,-(SP) 
(2) 012600 POPRO=12600 SRESTORE RO FROM STACK =MOV (SP)+,RO 
(2) 024646 PUSHESP=24646 SDECREMENT STACK TWICE =CMP =(SP),-(SP) 
(2) 022626 POP2SP=22626 §: INCREMENT STACK TWICE =CMP (SP)+,(SP)+ 
(2) sREGISTER DEFINITIONS 
(2) “RXCSR BIT DEFINITIONS 
(2) psc=B1715 :DATA SET CHANGE 
(2) 040000 RING=BIT14 RIN 
(2) 020000 CTS=B1T13 *CLR TO SEND 
(2) 010000 CARDET=B1T12 SCARRIER DETECT 
(2) 4 RECACT=B1T11 SREC ACTIVE 
(2) 002000 SRD=B1T10 :SEC REC DATA 
(2) 001000 DSR=BIT9 ZDATA SET RDY 
(2) STPSYN=B1T8 :STRI IP SYNC 
(2) 000200 RXDONE=B1T7 DONE 
(2) 000100 RINTEN=B1 16 [REC INTR ENABLE 
(2) 000040 DSINTE=B1T5 ‘DSC INTR ENABLE 
(2) 000020 SYNSCH=B1T4 [SYNC SEARCH 
(2) 000010 STD=BIT3 [SEC XMIT DATA 
(2) 000004 RTS=BIT2 [REQ TO SEND 
(2) 000002 DTR=BIT1 [DATA TERM RDY 
(2) 000001 VOID=B1TO 
(2) “RXDBUF BIT DEFINITIONS 
(2) 100000 RXERR=B1T15 zREC ERROR 
(2) 040000 OVRRUN=BIT14 OVERRUN 
(2) 020000 FRMERR=B81T13 FRAME ERROR 
(2) 010000 PARER=B1T12 *PARITY ERROR 
(2) :PARCSR BIT DEFINITIONS 
(2) 001000 PAREN=B1T9 NABLE 
(2) 000400 EVPAR=BIT8 F VEN UOARITY SENSE 
(2) -PARCSR WRD DEFINITIONS 
(2) 030000 SYNINT=30000 YNC EXTERNAL MODE 
(2) 020000 SYNEXT=20000 +H NC INTERNAL MODE 
(2) 000000 1SYMOD=0 : MODE 
(2) 000000 FIVE=0 :WORD LENGTH 5 BITS 
(2) 002000 $1X=2000 :WORD LENGTH 6 BITS 
(2) 004000 SEVEN=4000 :WORD LENGTH 7 BITS 
(2) 006000 EIGHT=6000 ; WORD LENGTH 8 BITS 
(2) 000000 NOPAR= :NO PARITY 
(2) 001000 ODDPAR=1000 [ODD PARITY 
(2) 001400 EVEPAR=1400 EVEN PARITY 
(2) TXCSR BIT DEF IN; TION S 
(2) 100000 DN wa=B1715 sDATA NOT AVAILABLE 
(2) 040000 MTDATA=B1T14 [MAINT DATA 
(2) 020000 CLK=BIT1 : 
(2) 002000 BITW=B1T10 [BIT WINDOW 
(2) 000400 MRESET=BIT8 SMASTER RESET 
(2) 000200 TXDONE=B1T7 *XMIT DONE 
(2) 000100 TXINTE=B1 16 :XMIT INTR ENABLE 





i 
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CNDUSA.M11 30-OCT-82 10:55 BASIC DEFINITIONS SEQ 0020 
(2) 000040 DNAINTE=BITS sDNA INTR ENAB 

| (2) 000020 SEND=BIT4 SEN 
(2) 000010 HDXEN=BIT3 + HDX/FDX 
(2) 000001 BREAK=B81T0 : 
(2) sTXCSh WRD DEFINITIONS 
(2) 000000 USER= :USER MODE 
(2) 004000 MINT=4000 ‘MAINT INT MODE 
(2) 010000 MEXT=10000 ‘MAINT EXT MODE 
(2) 014000 SYSTST=14000 SSYSTEM TEST MODE 








a 
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| 2) .SBTTL COMMON TAGS 
| (3) 33 RARE EAAAAAEEAAEEEEEEEAEEEAEEEEAEAEAEAAAAEAEAEEEEAEAEEEANEEEAEKEEEE 
i S*THIS TABLE CONTAINS VARIOUS COMMON STORAGE LOCATIONS 
| (3) teUSED IN THE PROGRAM. 
| (2) 001400 o®. 
(2) 001400 SCMTAG: z:START OF COMMON TAGS 
(2) 001400 000000 «WORD 0 
(2) 001402 000 STSTNM: .BYTE 0 z:CONTAINS THE TEST NUMBER 
(2) 001403 000 SERFLG: .BYTE 0 i: CONTAINS ERROR FLAG 
(2) 001404 000000 SICNT: WORD 0 :CONTAINS SUBTEST ITERATION COUNT 
(2) 001406 00 SLPADR: .WORD 0 :: CONTAINS SCOPE LOOP ESS 
(2) 001410 000000 SLPERR: .WORD 0 S:CONTAINS SCOPE RETURN FOR ERRORS 
(2) 001412 00 SERTTL: .WORD 0 s:CONTAINS TOTAL ERRORS DETECTED 
(2) 001414 000 SITEMB: .BYTE 0 t:CONTAINS ITEM CONTROL BYT 
(2) 001415 001 SERMAX: .BY 1 33 S MAX. ERRORS PER TEST 
(2) 001416 00 SERRPC: . 0 33CONTAINS PC OF LAST ERROR INSTRUCTION 
(2) 001420 000000 SGDADR: .WORD 0 33CONTAINS ADDRESS OF 'GOOD* DAT 
(2) 001422 000000 SBDADR: .WORD 0 SCONTAINS ADDRESS OF "BAD* DATA. 
(2) 001424 000000 $GDDAT: .WORD 0 3: CONTAINS *GOOD* DA ATA 
(2) 001426 000000 SBDDAT: .WORD 0 TAINS "BAD® 
(2) 001430 000000 “WORD 0 : SRESERVED=-NOT 10 BE USED 
(2) 001432 000000 “WORD 0 
(2) 001434 000 SAUTOB: :BYTE 0 :zAUTOMATIC MODE INDICATOR 
(2) 001435 000 SINTAG: .BYTE 0 t: INTERRUPT MODE INDICATOR 
(2) 001436 000000 “WORD 0 
(2) 001440 177570 SWR: WORD DSWR zsADDRESS OF SWITCH REGISTER 
(2) 001442 177570 DISPLAY: .WORD DDISP SADDRESS OF DISPLAY REGISTER 
(2) 001444 177560 $TKS: 177560 ::TTY KBD STATUS 
(2) 001446 177562 $TKB: 177562 ::TTY KBD BUFFER 
(2) 001450 177564 $TPS: 177564 +: TTY PRINTER STATUS REG. ADDRESS 
(2) 001452 177566 $TPB: 177566 ‘:TTY PRINTER BUFFER REG. ADDRESS 
(2) 001454 000 $NULL: .BYTE 0 S:CONTAINS NULL CHARACTER FOR FILLS 
(2) 001455 002 SFILLS: .BYTE 2 
(2) sCONTAINS # OF FILLER CHARACTERS REQUIRED 
(2) 001456 012 SFILLC: .BYTE 12 RT FILL C AFTER NE fe 
(2) 001457 000 STPFLG: .BYTE 0 {TERMINAL AYAILABLE™ FLAG  (BIT<O7>=0=VES) 
(2) 001460 SREGAD: .WORD 0 S:CONTAINS THE ADDRESS FROM 
(2) ; H ($REGO) WAS OBTAINED 
(4) 001462 000000 SREGO: .WORD 0 S:CONTAINS (($REGAD) +0) 
(4) 001464 000000 $REG1: .WORD 0 S:CONTAINS (($REGAD) +2) 
(4) 001466 000000 SREG2: .WORD 0 33 INS (($REGAD) +4) 
(4) 001470 000000 SREG3: WORD 0 SCONTAINS (($REGAD) +6) 
(4) 001472 000000 SREG4: . 0 33 CONTAINS (¢$REGAD) +10) 
(4) 001474 000000 SREGS: .WORD 0 S: CONTAINS (($REGAD)+12) 
(4) 001476 000000 STMPO: .WORD 0 S:USER DEFINED 
(4) 001500 000000 STMP1: <WORD 0 S:USER DEFINED 
(4) 001502 000000 STMP2: .WORD 0 [USER DEFINED 
(4) 001504 000000 STMP3: <WORD 0 S:USER DEFINED 
(4) 001506 000000 STMP4: WORD 0 33 DEF IN 
(4) 001510 000000 STMPS: .WORD 0 SUSER DEFINED 
(2) 001512 000000 STIMES: 6 [:MAX. NUMBER OF ITERATIONS 
(2) 001514 000000 SESCAPE: S:ESCAPE ON ERROR ADDRESS 
(2) 001516 177607 000377 ELL: .ASCIZ <207><377><377> ::CODE FOR BE 
(2) 001522 077 QUES: ASCII /2/ S:QUESTION MARK 
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CNDUSA. M11 30-OCT-82 10:55 COMMON SEQ 0022 
(2) 001523 015 SCRLF: ASCII <15> #3 CARRIAGE RETURN 
(2) 001524 000012 SLF “ASCIZ. <12> SLINE FEED 
j (3) IT ITITITTIITTITLILILILLITILILITIILiLiLitiT Li LiL TELE Lek 
(3) *SBTTL APT MAILBOX-ETABLE 
(4) 3 RRR EEAAEAAEAAEAAEAEAAEEAEAEAAAAARARERERAAAAAAERAREEEEEERAEEEEERE 
| " EVEN 
| = (3) 901526 $MAIL: s:APT MAILBOX 
: (3) 001526 000 SMSGTY: .WORD AMSGTY i SMESSAGE TYPE CODE 
' (3) 001530 000000 SFATAL: .WORD AFATAL ;FATAL ERROR NUMBER 
|  ¢3) 001532 000000 STESTN: .WORD ATESIN :: 
' (3) 001534 000000 $PASS: .WORD APASS :: COUNT 
| (3) 001536 000 SDEVCT: .WORD ADEVCT ::DEVICE COUNT 
(3) 001540 00 IT: .WORD AUNIT :: 
(3) 001542 000000 SMSGAD: .WORD AMSGAD- ::MESSAGE ADDRESS 
(3) 001544 SMSGLG: . AMSGLG 3; GE LENGTH 
(3) 001546 SETABLE: SAPT ENVIRONMENT TABLE 
| (3) 001546 000 SENV:  .BYTE AENV  ::ENVIRONMENT BYTE 
(3) 001547 000 SENVM: .BYTE AENVM 
(3) > sENVIRONMENT MODE BITS 
(3) 001550 000000 $Sw REG: .WORD ASWREG ;;APT SWITCH REGISTER 
(3) 001552 000000 SUSWR: WORD AUSWR ::USER SWITCHES 
(3) 001554 000000 S$CPUOP: ‘WORD ACPUOP ::CPU 1¥be.OPT ions 
(3) * BITS WS=11=CPU T YPE 
(3) ie 1/04 Yor 11705=02, 11/20=03,11/40=04,11/45=05 
(3) 3* /70= 06.P Q=07,0=10 
(3) ie BIT 1O=REAL CLoc 
(3) ie BIT 9=FLOATING POINT PROCESSOR 
(3) = BIT 8=MEMORY GEMEN 
(3) 001556 000 $MAMS1: .BYTE AMAMS1 ;;HIGH ADDRESS.M.S. BYTE 
(3) 001557 000 SMTYP1: .BYTE AMTYP1 ::MEM. TYPE, BLK#1 
(3) 3* MEM.TYPE BYTE == (HIGH BYTE) 
(3) ie 900 NSEC CORE=00 
(3) 3 300 NSEC Si POL AR=002 
(3) = 500 NSEC Moss 003 
(3) 001560 000000 $MADR1: .WORD AMADR1 HIGH ADDRESS,B 
(3) * MEM.LAST aiiee BYTES. THIS WORD AND LOW OF “‘TYPE’* ABOVE 
(3) 001562 000 SMAMS2: .BYTE AMAMS2 3s HIGH ADDRESS M.S. BYTE 
(3) 001563 000 SMTYP2: .BYTE AMTYP2 . TYPE ,BLK 
(3) 001564 000000 SMADRG ;WORD AMADR2 ::MEM.LAST ADDRESS,BLK#2 
(3) 001566 000 SMAMS3: .BYTE AMAMS HIGH ADDRESS -M.5.BY TE 
(3) 001567 000 SMTYP3: .BYTE © AMTYPS 3 ;MEM.T KA 
(3) 001570 000000 SMADR3: .WORD AMADRS ; ;MEM. CAST “ADDRESS BLK#3 
(3) 001572 000 SMAMS4: .BYTE AMAMS4 ::HIGH ADDRESS,M.S.BYTE 
(3) 001573 000 SMTYP4: .BYTE AMTYP4 ::MEM. TYPE ,BLK&4 
(3) 001574 000000 SMADR4: .WORD AMADR4 : MEM LAST ADDRESS, pk ka 
(3) 001576 000000 SVECT1: .WORD AVECT1 ::INTERRUPT VECTOR#1,BUS PRIORITY#1 
(3) 001600 000000 SVECT2: .WORD AVECT2 :: INTERRUPT VECTOR s2bue PRIORITY#2 
(3) 001602 000000 SBASE: .WORD ABASE 
(3) 7 :BASE ADDRESS OF EQUIPMENT UNDER TEST 
(3) 001604 000000 SDEVM: ‘WORD ADEVM VICE MAP 
(3) 001606 000000 $CDW1: WORD ACDW1 CONTROLLER DESCRIPTION WORD#1 
(3) 001610 000000 $CDW2: .WORD ACDW ::CONTROLLER DESCRIPTION WORDAZ 
(3) 001612 000000 SDDWO: .WORD ADDWO ;;DEVICE DESCRIPTOR WORD#O 
(3) 001614 000000 $DDW1: WORD ADDW1 ::DEVICE DESCRIPTOR WORD#1 
(3) 001616 000000 $DDW2: .WORD ADDW2 ::DEVICE DESCRIPTOR WORDA2 
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(3) 001620 000000 SDDW3: .WORD ~,ADDW3 ;;DEVICE DESCRIPTOR WORD#3 
(3) 001622 000000 SDDW4: .WORD ‘ADDW4 ;;DEVICE DESCRIPTOR WORD#4 
(3) 001624 000000 $DDW5: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#S 
(3) 001626 000000 $DDW6: .WORD  ADDW 7;DEVICE DESCRIPTOR WORD#6 
(3) 0016 000000 $DDW7: .WORD ADDW 2;DEVICE DESCRIPTOR WORD# 
(3) 001632 000000 $DDW8: .WORD ADDWS ;;DEVICE DESCRIPTOR WORD#S 
(3) 001634 00 $DDW9: .WORD ADDW9 ;;DEVICE DESCRIPTOR WORD#9 
(3) 001636 000000 $DDW10: .WORD ADDWIO0 ;;DEVICE DESCRIPTOR WORD#10 
(3) 001640 000000 SDDW11: .WORD ADDW11 ;;DEVICE DESCRIPTOR WORD#11 
(3) 001642 000000 $DDW12: .WORD ADDWI2 ;;DEVICE DESCRIPTOR WORD#1 
(3) 001644 000000 $DDW135: .WORD ADDW15 ;;DEVICE DESCRIPTOR WORD#1 
(3) 001646 000000 $DDW14: .WO ADDW14 9 ;;DEVICE DESCRIPTOR WORD#14 
fs 001650 000000 SDDW15: .WORD ADDW15 ;;DEVICE DESCRIPTOR WORD#15 
(3) 
(3) 001652 SETEND: 
(3) 
(4) 
(4) 


L 2 
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(4) 
(4) 
(4) 
(a> s INSTRUCTION DEFINITIONS 
(4) 005746 PUSH1SP=5746 § ;DECREMENT PROCESSOR STACK 1 WORD =TST =(SP) 
(4) 005726 POP1SP=5726 S INCREMENT PROCESSOR STACK 1 WORD =TST (SP)+ 
(4) 010046 PUSHRO=10046 § :SAVE RO ON STACK =MOV RO,=(SP) 
(4) 012600 POPRO=12600 SRESTORE RO FROM STACK =MOV (SP)+,RO 
(4) 024646 PUSH2SP=24646  :DECREMENT STACK TWICE =CMP =(SP),-(SP) 
(4) 022626 POP2SP=22626 INCRERENT STACK TWICE =CMP (SP)+,(SP)+ 
(4) :REGISTER SEF INITION 
(4) *RXCSR BIT DEF INIT IONS 
(4) 100000 psc=81715 DATA SET CHANGE 
(4) 040000 RING=B1T14 zR NG 
(4) 020000 CTS=BIT13 [CLR TO SEND 
(4) 010000 CARDET=B1T12 ‘CARRIER DETECT 
(4) 004000 RECACT=B1T11 sREC ACTIVE 
(4) 002000 SRD=B1T10 SSEC REC DATA 
(4) 001000 DSR=BIT9 SDATA SET RDY 
(4) 000400 STPSYN=BIT8 [STRIP SYNC 
(4) 000200 RXDONE=B1T7 [REC DONE 
(4) 000100 RINTEN=B1 16 SREC INTR ENABLE 
(4) 000040 DSINTE=BIT5 [DSC INTR ENABLE 
(4) 000020 SYNSCH=BI1T4 :SYNC SEARCH 
(4) 000010 STD=BIT3 iSEC XMIT DATA 
(4) 000004 RTS=BIT2 O SEND 
(4) 900002 DTR=BIT1 DATA TERM RDY 
(4) 001 VOID=81T0 
(4) RXDBUF BIT DEFINITIONS 
(4) 100000 RXERR=BIT15 REC ERROR 
(4) 040000 OVRRUN=BIT14 Z OVERRUN 
(4) 020000 FRMERR=B1T13 ZFRAME ERROR 
(4) 010000 PARER=B1T12 *PARITY ERROR 
(4) -PARCSR BIT DEFINITIONS 
(4) 001000 PAREN=B1T9 :PARITY ENABLE 
(4) 000400 EVP. AR=BITS SEVEN PARITY SENSE | 
(4) RCSR WRD DEFINITIONS | 
(4) 030000 SYNINT=30000 3SYNC EXTERNAL MODE 
(4) 020000 SYNEXT=20000 [SYNC INTERNAL MODE 
(4) 000000 1SYMOD= :1SOC MODE 
(4) 000000 FIVE= ‘WORD LENGTH 5 BITS 
(4) 002000 SIX=2 ‘WORD LENGTH 6 BITS | 
(4) 004000 SEVEN=4000 sWORD LENGTH 7 BITS 
(4) 006000 EIGHT=6000 WORD LENGTH 8 BITS 
(4) 000000 NOPAR=0 [NO PARITY 
(4) 001000 ODDPAR=1000 [ODD PARITY 
(4) 001400 EVEPAR=1400 SEVEN PARITY 
(4) -TXCSR BIT DEFINITIONS 
(4) 100000 DNA=B1T15 :DATA NOT AVAILABLE 
(4) 040000 MTDATA=B1T14 [MAINT DATA 
(4) 020000 CLK=B1T1 CLK 
(4) 002000 BI TW=B1T10 ‘BIT WINDOW 
(4) 000400 MRESET=BIT ‘MASTER RESET 
(4) 000200 TXDONE=81T 


(4) 000100 TXINTE=B1 16 *XMIT INTR ENABLE 


mm ee ee ee 
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| (4) 000040 DNAINTE=BITS ;0NA INTR ENAB 
(4) 000020 SEND=B1T4 ; 
(4) 000010 HDXEN=BIT3 SHDX/FDX 
(4) 000001 BREAK=B1TO * BREAK 
(4) sTXCSh WRD DEFINITIONS 
(4) 000000 USER=0 3U E 
(4) 004000 MINT=4000 :MAINT INT MODE 
(4) 010000 MEXT=10000 ‘MAINT EXT MODE 
(4) 014000 SYSTST=14000 :SYSTEM TEST MODE 


| 
| 
| 
| 
| 
| 
| 
| 


SEQ 0025 
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| (2) .SBTTL ERROR POINTER TABLE 
| © :*THIS TABLE CONTAINS THE INFORMATION FOR EACH ERROR THAT CAN OCCUR. 
i © '*THE INFORMATION IS OBTAINED BY USING THE INDEX NUMBER FOUND IN 
i (2) : *LOCATION SITEMB. THIS NUMBER INDICATES WHICH ITEM IN THE TABLE IS PERTINENT. 
| ©) s*NOTE1: IF $ITEMB IS 0 THE ONLY PERTINENT DATA IS (SERRP 
(2) : *NOTE2: EACH ITEM IN THE TABLE CONTAINS 4 POINTERS EXPLAINED AS FOLLOWS: 
| (2) i* EM Z:POINTS TO THE ERROR MESSAGE 
| @) te DH ::POINTS TO THE DATA HEADER 
(2) te DT ::POINTS TO THE DATA 
| (2) 3 OF ::POINTS TO THE DATA FORMAT 
(2) 
| =) 001652 SERRTB: 
| «aye ZERROR TABLE 
| (1) 001652 001762 EM] ZERROR 1 REGISTER ERROR 
' (1) 001654 002067 DH1 
| <1) 001656 002116 DT1 
' = (1) 001660 + 002132 DF1 
| (1) 001662 002022 EM2 ZERROR 2 RECEIVER ERROR 
(1) 001664 002067 DH1 
(1) 001666 092116 oT1 
(1) 001670 002132 FI 
(1) 001672 002043 EM3 TERROR 3 TRANSMITTER ERROR 
| @ 674 002067 DH1 
(1) 001676 002116 pT1 
(1) 001700 002132 DF1 
(1) 001702 001746 EMG ZERROR 4 BIT ERROR (GENERAL) 
(1) 704 00 0 
| (1) 001706 002126 DT4 
1) 001710 002132 DF1 ‘ 
(1) :DEFAULT DU ADDRESSES 
(1) 001712 174300 RXCSR: 174300 
(1) 001714 174301 HRXCSR: 174301 
(1) 001716 174302 RXDBUF: 174302 
(1) 001720 174303 HRXDBUF : 174303 
(1) 001722 174302 PARCSR: 174302 
(1) 001724 174303 HPARCSR: 174303 
(1) 001726 174304 TXCSR: 174304 
(1) 001730 174305 HTXCSR: 174305 
(1) 001732 174306 TXDBUF: 174306 
(1) 001734 174307 HTXDBUF : 174307 
(1) ;DEFAULT DU VECTORS 
(1) 001736 00033 DURIV: 33 REC INTR VECTOR 
(1) 001740 Spo see DURIS: 33 TREC INTR STATUS 
(1) 001742 000334 DUTIV: 334 EXMIT INTR VECTOR 
(1) 001744 000336 DUTIS: 336 XMIT INTR STATUS 
(1) 7ERROR MESSAGES 
(1) 001746 020040 051105 047522 EM4: ‘ASCIZ / ERROR PC / 
(1) 001754 020122 041520 000040 
(1) 001762 020040 047503 050715 EMI: eASCIZ / COMPARISON ERROR ON REGISTERS/ 
(1) 001770 051101 051511 047117 
(1) 001776 042440 051128 51117 
(1) 002004 047440 020116 042522 
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(1) 002012 044507 052123 051105 

(1) 002020 000123 

(1) 002022 020040 042522 042503 EM2: eASCIZ / RECEIVER ERROR/ 

(1) 002030 053111 051105 042440 

(1) 002036 051122 051117 0 

(1) 002043 040 052040 040522 EM3: eASCIZ / TRANSMITTER ERROR/ 

(1) 002050 051516 044515 052124 

(1) 2056 051105 042440 051122 

(1) 2064 051117 000 

(1) sDATA_HEADERS FOR ERROR MESSAGES 

(1) 105 051122 041520 DH1: eASCIZ /ERRPC WANTED ACTUAL/ 

(1) 002074 020040 040527 052116 

(1) 002102 042105 020040 041501 

(1) 002110 052524 046101 000 

(1) 002116 ~EVEN 

(1) DATA TABLES FOR ERROR MESSAGES 

(1) 002116 001416 001130 001132 DTI: WORD S$ERRPC,HLDO,HLD1,0 

33 002124 000000 

4 002126 001416 000000 DT4: -WORD SERRPC,0 

(1) 002132 000 000 000 DF1: BYTE 0,0,0,0 

(1) 002135 000 

(1) ~EVEN 

(s) -SBTTL ACT11 HOOKS 

(3) PPEIiiiii iti iiiiiii tii ities iiiiiiitiiiiitiiiiiiiiiiiiiiiciiiiiiid, 
(2) sHOOKS REQUIRED BY ACT11 

is} 002136 esyete. sSAVE PC 

(2) 000046 012660 SENDAD 331)SET LOC.46 TO ADDRESS OF SENDAD IN .$EOP 
(2) 000052 -=52 

(2) 000052 000000 WORD 0 332)SET LOC.52 TO ZERO 

(2) 002136 -=$SVPC 33 RESTORE PC 

3 -SBTTL APT PARAMETER BLOCK 

(3) ETI it iiti iis titi iiiiiiiiiiiiiiiiiiiiiiiiiiiiititiiiiiiiiiiicy 
(2) 3SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 

(3) PET Tite iistt titi iite iti iitettiiteiitiiiiiiiiiiiiiiiiiiiiiiiig. 
(2) 002136 ~$X=. 33SAVE CURRENT LOCATION 

(2) 000024 2=24 33SET POWER FAIL TO POINT TO START OF PROGRAM 

(2) 000024 000200 200 33FOR APT START UP 

(2) 000044 .=44 33POINT TO APT INDIRECT ADDRESS PNTR. 

(2) 000044 002136 SAPTHDR ;;POINT TO APT HEADER BLOCK 

(2) : 002136 -=.$X  ;;RESET LOCATION COUNTER 

(3) PPI Tis ti ite iii sii itttiieeiiitttiitttiiiiiiii iii iititiititiiiiit 
(2) ;SETUP APT PARAMETER BLOCK AS DEFINED IN THE APT=PDP11 DIAGNOSTIC 
ts} Z INTERFACE SPEC. 

(2) 002136 SAPTHD: 

(2) 002136 000000 $HIBTS: .WORD 0 3:TWO HIGH BITS OF 18 BIT MAILBOX ADDR. 
(2) 002140 001526 S$MBADR: .WORD $MAIL ;;ADDRESS OF APT MAILBOX (BITS 0-15) 

(2) 002142 000010 STSTM: .WORD 10 33RUN TIM OF LONGEST TEST 

(2) 002144 000010 SPASTM: .WORD 10 23 TIME IN SECS. OF 1ST PASS ON 1 UNIT (QUICK VERIFY) 
(2) 002146 sisal SUNITM: .WORD Te en RUN TIME (SECS) OF A PASS FOR EACH ADDITIONAL UNIT 
(2) 002150 00005 -WORD  $ETEND-SMAIL/2 ;;LENGTH MAILBOX~E TABLE (WORDS) 


me es + ee ee ee ee 


a 


$ 000300 MTPS #300 ;LOCK INTERRUPTS 
12737 014776 000024 MOV #.PFAIL,a#24 SET UP POWER FAIL VECTOR 


; Fs 
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ow 
| (2) 
| (3) :PROGRAM INITIALIZATION 
(2) [LOCK OUT INTERRUPTS 
| (5) ESET UP PROCESSOR STACK 
(2) :SET UP POWER FAIL VECTOR 
| 3) [CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
(3) STYPE TITLE MESSAGE 
(2) 002152 .START: 
(3) -SBTTL INITIALIZE THE COMMON TAGS 
(3) Z;CLEAR THE COMMON TAGS ($CMTAG) AREA 
(3) 002152 012706 001400 MOV #SCMTAG,R6 zFIRST LOCATION TO BE CLEARED 
(3) 002156 005026 CLR (R6)+ t:CLEAR MEMORY LOCATION 
(3) 002160 022706 001440 CMP #SWR,R6 ;;DONE? 
(3) 002164 001374 BNE .-6 :;LOOP BACK I 
(3) 002166 012706 001100 WASTACK,SP Meet UPN OHE STACK POINTER 
(3) s INITIALIZE A FEW VECTORS 
(3) 002172 012737 016304 000020 #SSCOPE ,a#IOTVEC :;10T VECTOR FOR SCOPE ROUTINE 
(3) 002200 012737 000300 000022 MOV #PR6, as iOTVECs 2 s:LEVEL 
(3) 002206 012737 014174 000030 MOV #SERROR, a#EMTVEC :;EMT VECTOR FOR ERROR ROUTINE 
(3) 002214 012737 000300 000032 arom MOV #PR6, oeenTVECe® z: LEVEL 6 
(3) 002222 012737 016640 000034 MOV #STRAP A#TRAPVEC ;; TRAP VECTOR FOR TRAP CALLS 
(3) 002230 012737 000300 000036 MOV #PR6 ,@#TRAPVEC+2;LEVEL 6 
(3) 002236 012737 014776 000024 MOV #SPWRDN, a#PWRVEC i sPOWER FAILURE VECTOR 
(3) 002244 012737 000300 000026 MOV #PR6, a#PWRVEC+2 :3LEV 
(3) 902252 905067 127234 CLR : $TIMES tN "i TALIZE NUMBER OF ITERATI“NS 
(3) 002256 005067 177232 CLR SESCAPE CLEAR THE ESCAPE ON ERROR ADDRESS 
(3) 002262 112767 000001 177125 MOVB #1, $ERMAX TALLOW ONE ERROR PER TES 
(3) 002270 012767 002270 177110 MOV #.«SLPADR INITIALIZE THE LOOP ADDRESS FOR SCOFE 
(3) 002276 012767 002276 177104 MOV -SLPERR “SETUP THE ERROR LOOP ADDRESS 
(4) z:SIZE FOR A HARDGARE SWITCH REGISTER. IF NOT FOUND OR IT IS 
(4) T:EQUAL TO A ''=1'', SETUP FOR A SOFTWARE SWITCH REGISTER. 
(4) 002 013746 000004 MOV a#ERRVEC,-(SP) 33 SAV ERROR VECTOR 
(4) 002310 012737 002344 000004 MOV #64$,aWERRVEC ::SET UP ERROR VECTOR 
(4) 002316 012767 177570 177114 MOV #DSWR, SUR 2:SET uP FOR A HARDWARE SWICH REGISTER 
(4) 002324 012767 177570 177110 MOV #DDISP, DISPLAY z3AND A HARDWARE DISPLAY REGISTER 
(4) 002332 022777 177777 177100 CMP #1, aSuR ‘TRY TO REFERENCE HARDWARE SWR 
(4) 002340 001012 BNE 66$ * {BRANCH IF NO TIMEOUT TRAP OCCURRED 
(4) 33AND THE HARDWARE SWR IS NOT = =1 
(4) 002342 000403 BR 65$ SBRANCH IF NO TIMEOUT 
(4) 002344 012716 002352 64$: MOV #65$, (SP) tISET UP FOR TRAP RETURN 
(4) 002350 000002 RTI 
(4) 002352 012767 000176 177060 65$: MOV #SWREG, SWR z:POINT TO SOFTWARE SWR 
(4) 002360 012767 000174 177054 MOV #DISPREG DISPLAY 
(4) 002366 012637 000004 66$: MOV (SP)+,a#ERRVEC ;:RESTORE ERROR VECTOR 
(4) 002372 005067 177136 CLR SPASS ::CLEAR PASS COUNT 
(4) 002376 132767 000200 177143 BITB #APTSIZE,SENVM 33 TEST USER SIZE UNDER APT 
(4) 002404 001403 BEQ TYES,USE NON-APT SWITCH 
(4) 002406 012767 001550 177024 a MOV #SSWREG, SWR [:NO,USE APT SWITCH REGISTER 
(2) 002414 012706 001100 MOV #STACK,SP :SET STACK 
(2) 002420 ; 


SEQ 0028 
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(2) 002432 105067 176535 CLRB ss STFLG sCLEAR START FLAG 
(2) 002436 176450 CLR PASCNT ‘CLEAR PASS COUNT 
(2) 002442 105067 176735 CLRB = SERFLG 7 CLEAR ERROR FLAG 
(2) 0024466 005067 176740 CLR ERTTL [CLEAR ERROR COUNT 
(2) 002452 005067 176740 CLR SERRPC :CLEAR LAST ERROR POINTER 
(2) 002456 012767 000001 176716 MOV #1,$TSTNM ‘SET UP FO 
(2) 002464 012767 002152 176412 MOV #. START, RETURN ‘SET UP FOR POUER FAIL BEFORE 
(2) ' S TESTING STARTS 
(2) 002472 013746 000006 MOV a#6,-(SP) 
(2) 002476 013746 000004 MOV avs ,-(SP) 
(2) 002502 012737 002516 000004 MOV #1$.a%4 
(2) 002510 005777 176724 TST aswR 
(2) 002514 000407 BR 
(2) 002516 012767 000176 176714 1$: MOV #SWREG, SWR 
(2) 002524 012767 000174 176710 MOV #DISPREG DISPLAY 
(2) 002532 022626 CMP (SP)+, (SP)+ 
(2) 002534 012637 000004 2s: MOV (SP) +, a8 
(2) 002540 012637 000006 MOV (SP)+,a#6 
(2) 002544 022767 000176 176666 CMP #SWREG, SWR 
(2) 002552 001007 BNE 3$ 
(2) 002554 005737 000042 TST a#42 sCHECK FOR CHAIN 
(2) 002560 001402 BEQ 33$ 
(2) 002562 000167 000522 JMP .BEGIN 
(2) 002566 004767 010170 33$: JSR PC, CNTLU 
(2) 002572 105767 176374 33: TSTB INIFLG ZHAS INITIALIZATION BEEN PERFORMED 
(2) 002576 001004 BNE ONCE 
(2) 002600 104401 015 TYPE  ,MTITLE i TYPE TITLE MESSAGE 
3} s 105167 176 Tees COMB INIFLG NOT SET FLAG AND DO 
(2) 002610 105767 1767 ONCE: TSTB  $ENV zAPT confou? 
(2) 002614 001410 BEQ 11$ “BR 
(2) 002616 032767 000001 176726 BIT #1, SUSUR OR TENAL JUMPER ON? 
(2) 002624 001002 BNE 12$ NO 
(2) 002626 105067 176321 CLRB = UMRBY [CLEAR FLAG 
(2) 002632 000167 000452 12$:  JMP ~BEGIN : T 
(2) 002636 032777 000001 176574 11$: ®BIT #$w00, aSwR SRESELECT VECTOR & CONTROL REG? 
(2) 002644 001002 BNE _™ 
(2) 002646 000167 JMP 
(2) 002652 012700 000300 1$: MOV Pett RO :RESTORE VECTOR AREA TO TRAPCATCHER 
(2) 002656 0127Ci 000302 MOV #302.R1 :START AT LOCATION 300 
(2) 002662 012702 000004 MOV #4, 
(2) 002 010110 2$ MOV R171, (RO) 
(2) 002670 005011 CLR (Ri 
(2) 002672 060200 ADD R2,RO 
(2) 002674 060201 ADD R2.R1 
(2) 002676 022701 001000 CMP #1000,R1 ZEND AT LOCATION 776 
(2) 002702 002771 BLT 2 
(2) 002704 104406 INSTR : OUTPUT MESSAGE & GET INPUT STRING 
(2) 002706 015204 MREGAD 
(2) 002710 104410 PARAM CONVERT STRING 
(2) 002712 174000 174000 :LOW LIMIT 
(2) 002714 177776 177776 :HIGH LIMIT 
(2) 002716 017134 DUBASE STORE AT THIS LOCATION 
(2) 002720 001 .BYTE 1 *MASK 
(2) 002721 001 “BYTE 1 ‘HOW MANY TIMES + 2 
(1) 002722 016767 014206 176226 MOV BUBASE. KEEPAD SAVE 
(1) 002730 004767 014046 JSR PC ,DUADDR 
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003126 767 
003134 000414 
003136 016767 
003144 pes 
003146 01535 

003150 104410 
003152 174000 
003154 177776 
003156 001160 
003160 001 
003161 001 
003162 000167 


14=DEC=82 09:59 PAGE 61-16 
INITIALIZE THE COMMON TAGS 


2 10:55 


176216 


176752 
176744 


000001 
176110 
176106 
176076 


000010 
176052 


176052 


000001 
176024 
176014 


177656 


176212 


176116 
176102 


176052 
176044 


176046 
176042 
176020 
176010 


MOV KEEPADD,BASEADD ; RESTORE FOR ROTATION 
INSTR ;QUTPUT MESSAGE & GET INPUT STRING 
MVECTO ;MESSAG 

PARAM CONVERT STRING 

00 LOW LIMIT 


3 sL 
776 HIGH LIMIT 
aa DURIV i STORE AT THIS LOCATION 
"BYTE 4 NOU MANY TIMES + 2 
MOV DURIV,KEEPIV SAVE 
MOV DURIV.BASEIV |: SET UP FOR ROTATION 
INSTR ZOUrPOT MESSAGE & GET INPUT STRING 
SETFLG SET FLAG BASED UPON INPUT STRING 
MULTD :THIS FLAG 
TSTB = MULTD »« ; ARE_THERE MULTIPLE DEVICES 
[ON THE SYSTEM 
BMI BBB TYES,ASK NEXT QUESTION 
CLR ACTREG 
CLR ROTADD 
sms JMP OUTMUL ;JUMP AROUND NEXT QUESTION 
INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
MLASTD :MESSAG 
PARAM ; CONVERT STRING 
174000 : th MIT 
177776 :HIGH LIMIT 
LASTADD STORE AT THIS LOCATION 
BYTE 
“BYTE 1 Y TIMES + 2 
>THE FOLLOWING rbur INE ASETS uP ACTREG FOR THE FIRST TIME 
i$: MOV #1,ROTAD T UP POINTER 
CLR ACTREG ;:CLR active REGISTER 
28: Bis ROTADD,ACTREG | ;:MAKE THIS DEVICE ACTIVE 
ROL ROTADD SET UP POINTER 
BCS 3$ j ARE YOU OUT OF RANGE ? 
ADD #10, BASEADD :SET UP BASE ADDRESS 
CMP Castano. BASEADD 1S THIS THE LAST DEVICE ? 
BHI 2$ 0 IT AGAIN 
BIS ROTADD, ACTREG :THIS ASSUMES THAT THERE ARE AT 
-LEAST TWO DEVICES WHEN YOU ANSWER YES TO 
‘MULTIPLE DEVICE QUESTION 
4$: MOV #1, ROTADD zSET UP FOR LATER USE IN END OF PASS ROUTINE 
MOV KEEPADD,BASEADD :DITTO 
8 > CONTINUE QUESTIONS 
3$: V K PADD BASEADD “RESTOR 
INSTR ;OQUTPUT MESSAGE & GET INPUT STRING 
MRANGE :MESSAGE 
ARAM CONVERT STRING 
74000 ;LOW LI 
177776 :HIGH LIMIT 
LASTADD STORES AT THIS LOCATION 
.BYTE 1 MASK 
"BYTE 1 *HOW MANY TIMES + 2 


JMP i$ 300 IT AGAIN 


SEQ 0030 
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' (1) 003166 012767 900290 013602 OUTMUL: yt! #300,,DUPRT 


/ 1) 003174 «004767 «013526 S PC ,DULEV 
' 2) SCOMPARE THE FIRST CHARACTER IN THE TELETYPE INPUT 
(2) sBUFFER TO THE CHARACTERS ~- ae - « 
| @® TIF ThE CHARACTER IS ‘l'’ CLEAR THE FLAG 
/ 3) SIF THE CHARACTER IS ‘'2"' SET THE FLAG 
' (2) 003200 AAA: 
| §=©(2) 003200 104406 INSTR ;OUTPUT MESSAGE & GET INPUT STRING 
| (2) 003202 015575 MSYNC ;MESSAGE 
| (2) 003204 122767 000061 012724 38: CMPB.s#" 1, INBUF s1s 17 "1" ? 
| (2) 003212 001003 BNE 
| £2) 003214 105067 175726 CLRB  SYNCNO ;000 
| (2) 003220 000412 BR 
| (2) 003222 122767 000062 012706 1S: CMPB Ss #*2, INBUF r1S IT "2" 2 
| 2) 003230 001004 BNE 
(2) 003232 112767 177777 175706 MOVB  #=1,SYNCNO 3377 
(2) 003240 000402 BR 4 
(2) 003242 104407 2s: INSTER :RETRY 
(2) 003244 000757 BR 5$ 
(2) 003246 000240 4$: NOP 
(2) 003250 1044 INSTR sOUTPUT MESSAGE & GET INPUT STRING 
(2) 003252 01564 MWIRE6 ;MESSAGE 
(2) 003254 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003256 001147 SEXMIT ;THIS FLA 
(2) 003260 104406 INSTR sOUTPUT MESSAGE & GET INPUT STRING 
(2) 003262 015714 MWIRES :MESSA 
(2) 003264 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(3) 003266 001150 SEREC ;THIS FLA 
(2) 003 104406 INSTR SOUTPUT MESSAGE & GET INPUT STRING 
(2) 003272 015764 MWIRES :MESSA 
(2) 003274 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 003276 001151 OPTCLR ;THIS FL 
(2) 003300 104406 INSTR OUTPUT MESSAGE & GET INPUT STRING 
(2) 003302 016043 MEXTJ :MESSA 
(2) 003304 104414 SETFLG :SET FLAG BASED UPON INPUT STRING 
(2) 3306 001153 JMRBY :THIS FLAG 
c 
(2) :TEST START AND RESTART 
(2) 003310 012706 001100 .BEGIN: MOV #STACK,SP :SET UP STACK 
(2) 003314 106427 000300 MTPS #300 sLOCK OUT INTERRUPTS 
(2) 003320 032777 000002 176112 BIT #5W01,aSwWR :IF SwO1l=1, GET STARTING PC 
(2) 003326 001413 BEQ 
(3) 003330 104406 INSTR  j3QUTPUT MESSAGE & GET INPUT STRING 
(3) 003332 015527 MTSTPC :MES 
(3) 003334 104410 PARAM :CONVERT STRING 
(3) 003336 003374 TST]  :LOW LIMIT 
(3) 003340 017500 17500 :HIGH LIMIT 
(3) 003342 001402 STSTNM :STORE AT THIS LOCATION 
(3) 003344 001 .BYTE 1 MASK 
(3) 003345 001 “BYTE 1 “HOW MANY TIMES + 2 
(2) 003346 016767 176030 175530 MOV $TSTNM, RETURN 
(2) 003354 000403 BR 
(2) 003356 012767 003374 175520 3$: MOV #TST1, RETURN sSTART AT TEST 1 
(2) 003364 104401 015523 4$: TYPE 4M :TYP 
(2) 003370 000177 175510 JMP RETURN *START TESTING 
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‘CNDUSA.M11 - 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0032 
8151 
8152 IS TEST VERIFYS WORD LENGTH SELECT OF THE 
(1) S:RECEIVER SECTION, IT USES THE ERROR FLAGS 
(1) [:TO DETERMINE THAT IT WAS SELERTED CORRECTLY 
(1) +: (COVRRUN, RXERR) 
(1) + MODE : SYNEXT 
(1) 3 sLENGTH: SEVEN 
(1) 2: CHAR: 177 
(5) OTT TTT TTT TTT TT TTT TTT TTT TTT TTT TUTE TTT TTT TTT TTT TTT TTT TTT TT TT 
(4) 003374 000004 té11: SCOPE 
(3) 003376 052777 000400 176322 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 003404 012777 020000 176310 MOV WSYNEXT.@PARCSR :SET THE MODE 
(3) 003412 052777 000400 176306 BIS WMRESET.aTXCSR :MASTER RESET 
(2) :SET MAINT /PATA.CLK. BREAK. SMALNTENANCE MODE 
(2) 003420 012777 064001 176300 #MTDATA! CLK! MINT !BREAK,a@TXCSR 
(2) sSET MODE .# OF BITS PARITY SENSE .SLOAD SYNC REG 
(2) 003426 012777 024000 176266 MOV YNEXT ! SEVEN! NOPAR!0, @PARCSR 
(1) 003434 052777 000020 176250 BIS OS YNSCH, @RXCSR ;SET SEARCH SYNC 
(2) :POKE CLK TO GET LOGIC | INTO SYNCRONIZA TION 
(2) 003442 042777 020000 176256 BIC #CLK,aTXCSR :POK ts CLK DOWN 
(2) 003450 052777 020000 176250 BIS ACLEOTACSR :POK E CLK UP 
(1) 003456 016703 176234 MOV XDBUF SET UP FOR ERROR MESSAGE 
(1) 003462 012700 000177 MOV a? Uo’: S MPECT 
(1) 0034 013767 900007 175426 MOV SAIFT :# OF SHIFTS 
(1) 003474 012767 000177 175776 MOV 4) STMP1 SDATA CHAR 
(1) 003502 004767 013430 JSR PC ,RPOKE *SHIFT IN THIS CHAR 
(1) 003506 105777 176200 TSTB ARKCSR sRXDONE ? 
(1) 003512 100401 BMI 
(1) 003514 104004 ERROR & s RXDONE SHOULD BE SET 
(1) 003516 017701 176174 MOV @RXDBUF RI UAL 
(1) 003522 020001 CMP RO.R1 —:COMPARE EXPECTED VS. ACTUAL 
(1) 003524 001401 BEQ +4 
(1) 003526 104002 ERROR 2 :RECEIVED DATA DID NOT MATCH 
(1) SEXPECTED DATA = CHECK MAINT DATA 
(1) sOR RECEIVER LOGIC 
(1) 003530 012767 000007 175364 MOV #7,SHIFT :# OF SHIFTS 
(1) 003536 012767 000177 175734 MOV #177, STHPI :DATA CHAR 
(1) 003544 004767 013366 JSR RPOKE SHIFT IN THIS CHAR 
(1) A zNOW SHIFT IN A SECOND CHARACTER WITHOUT READING RXDBUF 
(1) . 003550 012767 000007 17534 MOV :# OF SHIFTS 
(1) 003556 012767 000177 175714 MOV nh STMT DATA, CHAR 
(1) 003564 004767 013346 JSR KE ‘SHIFT IN THIS CHA 
(1) 003570 012700 140177 MOV #1400001177, RO SEXPECTED DATA PLUS 
(1) 003574 017701 176116 MOV @RXDBUF RI ACTUAL 
(1) 003600 020001 CMP RO,R1 ‘:COMPARE EXP VS. ACT 
(1) 003602 001401 BEQ .+ 
(1) 003604 104002 - ERROR 2 :SPECIFICALLY LOOK AT RXERR & 
(1) SOVRRUN BITS... THEY BOTH SHOULD BE SET 
8153 z:THIS TEST VERiFYS WORD LENGTH SELECT OF THE 
(1) S:RECEIVER SECTION, IT USES THE ERROR FLAGS 


a a ne en te ee ee a ee 
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: MODE : SYNEXT 


/CNDUSA. M11 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0033 
i> 2370 A yl & _ IT WAS SELECTED CORRECTLY 

33 COVRRUN,RXERR 

| 


3 sLENGTH: SEVEN 
; CHAR :0 


RekeReeeeeeeeeeeeeeeeeeeeeeeeteneeeeeeedeeeteneeteeeereneeeeeee 


sOVRRUN BITS...THEY BOTH SHOULD BE SET 


IFYS WORD LENGTH SELECT OF THe 
ION, 1T USES THE ERROR FLAGS 

THAT IT WAS SErERTED CORRECTLY 
32 (OVRRUN, ie Rd 

+ =MODE : SYNEXT 


“DD 


(1) 
(1) 
(1) 
(1) 
(3) | 
(4) 003606 000004 i812: SCOPE 
(3) 003610 052777 000400 176110 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 003616 012777 020000 176076 MOV #SYNEXT,@PARCSR :SET THE MODE 
(3) 003624 052777 000400 176074 BIS WMRESET.@TXCSR :MASTER RESET 
(2) :SET MAINT DATA, CLK BREAK. SMAINTENANCE MODE 
(2) 003632 012777 064001 176066 MOV #MTDATA! CLK! MINT !BREAK, OTXESR 
(2) :SET MODE ,# OF BITS, PARITY SENSE . LOAD SYNC REG 
(2) 003640 012777 024000 176054 MOV #SYNEXT ! SEVEN !NOPAR! 0, @PARCSR 
(1) 003646 052777 000020 176036 BIS MSYNSCH,ARXCSR ;SET SEARCH SYNC 
(2) :POKE CLK TO GET LOGIC INTO STwchouIZA ATION 
(2) 003654 042777 020000 176044 BIC #CLK,aTXCSR OOLe cLK DOWN 
(2) 003662 052777 020000 176036 BIS #CLK.aTXCSR 3POKE CLK UP 
(1) 003670 016703 176022 MOV RXDBUF ,R3 SET UP FOR ERROR MESSAGE 
(1) 003674 012700 000000 MOV #0,RO EXPECT eb 
(1) 003700 012767 000007 175214 MOV #7, SHIFT :# OF SHIFTS 
(1) 003706 012767 000000 175564 MOV #0. $THPI [DATA CHA 
(1) 003714 004767 013216 JSR PC.RPOKE ;SHIFT IN" THIS CHAR 
(1) 003720 105777 175766 TSTB ARXCSR ZRXDONE ? 
(1) 003724 100401 BMI 
(1) 003726 104004 ERROR i" = RXDONE SHOULD BE SET 
(1) 003730 017701 175762 MOV @RXDBUF ,R1 s ACTUAL 
(1) 003734 020001 CMP RO,R1 —;COMPARE EXPECTED VS. ACTUAL 
(1) 003736 001401 BEQ .+ 
(1) 003740 104002 ERROR 2 ZRECEIVED DATA DID NOT MATCH 
(1) SEXPECTED DATA = CHECK MAINT DATA 
(1) ‘OR RECEIVER LOGIC 
(1) 003742 012767 000007 175152 MOV #7,SHIFT # OF SHIFTS 
(1) 003750 012767 000000 175522 MOV #0, STHPI : CHAR 
(1) 003756 004767 013154 JSR PC .RPOKE SHIFT IN THIS CHAR 
(1) zNOW SHIFT IN A SECOND CHARACTER’ WITHOUT READING RXDBUF 
(1) 003762 012767 000007 175132 MOV #7, SHIFT 24 OF SHIFTS 
(1) 003770 012767 000000 175502 MOV #0, -STHP| DATA, CHAR 
(1) 003776 004767 013134 JSR PC ‘SHIFT IN THIS CHA 
(1) 002 012700 140000 MOV #4000010, RO iRieRe 8 0 DATA PLUS 
(1) 017701 175704 MOV @RXDBUF ,R1 
(1) 12 020001 CMP RO R1 —; COMPARE. “EXP VS. ACT 
(1) 004014 001401 BEQ .+ 
(1) 004016 104002 ERROR 2 ZSPECIFICALLY LOOK AT RXERR & 
(1) 
8154 
(1) 
(1) 
(1) 
(1) 


ae ee es ee — 
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'CNDUSA.M11-- 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0034 
' oD : LENGTH: HEIGHT 
| vy 
(5) sh ehalabbb-bb-bhbehbbhiehhbhhbhhbhbhbhhbhhbhith hhbhhbhbhhbhhbhhbhh 
4) 004020 000004 1813: SCOPE 
| (3) 004022 052777 000400 175676 BIS WMRESET,a@TXCSR ;MASTER RESET 
(2) 004030 012777 020000 175664 MOV #SYNEXT,@PARCSR :SET THE MODE 
(3) 004036 052777 000400 175662 BIS WMRESET,aTXCSR MASTER RESET 
(2) zSET MAINT DATA,CLK,BREAK,@MAINTENANCE MODE 
(2) 004044 012777 064001 175654 MOV #MTDATA! CLK! MINT !BREAK,@TXCSR 
(2) :SET MODE ,# OF BITS,PARITY SEN NE -&LOAD SYNC REG 
(2) 004052 012777 026000 17564 MOV #SYNEXT!EIGHT! CSR 
(1) 004060 052777 000020 175624 BIS #SYNSCH, @RXCSR set TREARCH SYNC 
(2) zPOKE CLK TO GET LOGIC INTO sh ise 
(2) 004066 042777 020 175632 BIC #CLK ,aTXCSR PO tt tk K DOW 
(2) 004074 052777 020000 175624 BIS #CLK, “QTXCSR SPOKE CLK 
(1) 004102 016703 175610 MOV RXDBUF *SET UP FOR ERROR MESSAGE 
(1) 004106 012700 000125 MOV #125, UROr sexPECT 
(1) 004112 012767 000010 175002 MOV # FT :# OF SHIFTS 
(1) 004120 012767 000125 175352 MOV wi25 tHe “DATA CHA 
(1) 004126 004767 013004 JSR PC,RPOKE ‘SHIFT inn THIS CHAR 
(1) 004132 105777 175554 TSTB ARKCSR :RXDONE ? 
(1) 004136 100401 BMI .+ 
(1) 004140 104004 ERROR 4 :RXDONE SHOULD BE SET 
(1) 004142 917701 175550 MOV @RXDBUF , R1 s ACTUAL 
(1) 004146 020001 CMP RO,R1 °;COMPARE EXPECTED VS. ACTUAL 
(1) 004150 001401 BEQ ol 
(1) 004152 104 ERROR 2 ZRECEIVED DATA DID NOT MATCH 
(1) sEXPECTED DATA = CHECK MAINT DATA 
(1) *OR RECEIVER LOGIC 
(1) 004154 012767 000010 174740 MOV #8. SHIFT :# OF SHIFTS 
(1) 004162 012767 000125 175310 MOV #125, $TMP1 DATA, CHAR 
(1) 004170 004767 012742 JSR RPOKE SHIFT IN THIS CHA 
(1) zNOW SHIFT IN A SECOND CHARACTER WITHOUT READING REDBUF 
(1) 004174 012767 000010 17472 MOV H ; SHIFTS 
(1) 004202 012767 000125 175270 MOV #125, sTHP DATA. CHA 
(1) 004210 004767 012722 JSR POKE :SHIFT IN THIS CHA 
1) 004214 012700 140125 MOV #140000!125,R0 OECTED DATA PLUS 
(1) 004220 017701 175472 MOV @RXDBUF ,R1 * ACTUAL 
(1) 004224 02000 CMP RO,R1 ‘;COMPARE EXP VS. ACT 
(1) 004226 001401 BEQ .+ 
(1) 004230 10400 ERROR 2 :SPECIFICALLY LOOK AT RXERR & 
(1) ;OVRRUN BITS...THEY BOTH SHOULD BE SET 
8155 s;THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
(1) [RECEIVER SECTION, IT USES THE ERROR FLAGS 
(1) £:TO DETERMINE THAT IT WAS SELECTED CORRECTLY 
(1) 7: (COVRRUN, RXERR) 
(1) + :MODE : SYNEXT 
(1) i SLENGTH:EIGHT 
D pees 
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CNDUSA.M11 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0C35 
(5) RARE EEAAAEEAAEEEAAEEAEEAEEEEAAAARAEAERAAARAAARAAARAERAEERAEEEEKREEEE 
(4) 004232 000004 TST4: SCOPE 
(3) 004234 052777 000400 175464 BIS WMRESET,@TXCSR MASTER RESET 
(2) 004242 012777 020000 175452 MOV ASYNEXT,@PARCSR :SET THE MODE 
(3) 004250 052777 000400 175450 BIS WMRESET.@TXCSR :MASTER RESET 
(2) ZSET MAINT DATA,CLK,BREAK,@MAINTENANCE MODE 
(2) 004256 012777 064001 175442 MOV #MTOATA! CLK! MINT !BREAK, @TXCSR 
(2) zSET MODE ,# OF BITS PARITY SENSE -GLOAD SYN REG 
(2) 004264 012777 026000 175430 MOV YNEXT! EIGHT R!0,a@PARCSR 
(1) 004272 052777 000020 175412 BIS aS YNSCH SaacsR Set SEARCH SYNC 
(2) sPOKE CLK TO GET LOGIC ato SYNCRONIZATION 
(2) 004300 042777 020000 175420 BIC #CLK ,aTXCSR DORE. CLK DOWN 
(2) 004306 052777 G20000 175412 BIS #clK. faTXcsR SPOKE CLK UP 
(1) 004314 016703 175376 MOV SET up For ERROR MESSAGE 
(1) 004320 012700 000252 MOV aoe <n. ex PECTE eb 
(1) 004324 012767 000010 174570 MOV 7# OF SHIFTS 
(1) 004332 012767 52 175140 #258, STMPI [DATA CHAR 
(1) 004340 004767 012572 JSR PC ,RPOKE *SHIFT IN THIS CHAR 
(1) 004344 105777 175342 TSTB ARXCSR ZRXDONE ? 

(1) 004350 100401 I 

(1) 004352 104004 ERROR & XDONE SHOULD BE SET 

(1) 004354 017701 175336 MOV @RXDBUF , ie U 

(1) 004360 1 CMP RO,R1 —;COMPARE EXPECTED VS. ACTUAL 

(1) 004362 001401 BEQ RO 

(1) 004364 104002 ERROR 2 :RECELVED DATA DID NOT MATCH 

(1) SEXPECTED DATA = CHECK MAINT DATA 

(1) “OR RECEI ¢ 

(1) 004366 012767 000010 174526 MOV #8. SHIFT 74 OF SHIFTS 

(1) 004374 012767 000252 175076 MOV #250, STHPI ‘DATA CHAR 

(1) 004402 004767 012530 JSR PC RPOKE *SHIFT IN THIS CHA 

(1) zNOW SHIFT IN A SECOND CHARACTER’ WITHOUT READING REDBUF 

(1) 004406 012767 000010 174506 MOV #8. SHIFT :# OF SHIFTS 

(1) 004414 012767 000252 175056 MOV #250. gSTHPt CHAR 

(1) 004422 004767 012510 JSR :SHIFT IN THIS CHAR 

(1) 004426 012700 140252 MOV 41400001252, RO saxra eovnnow’ 

(1) 004432 017701 175260 MOV @RXDBUF ,R1 * ACTUAL 

(1) 436 020001 CMP RO,.R1  ;COMPARE EXP VS. ACT 

(1) 004440 001401 BEQ + 

(1) 004442 104Cd2 ERROR 2 i SPECIFICALLY LOOK AT RXERR & 

(1) SOVRRUN BITS...THEY BOTH SHOULD BE SET 
8156 r:THIS TEST VERIFYS WORD LENGTH SELECT OF THE 

(1) T:RECEIVER SECTION, IT USES THE ERR 

(1) £:TO DETERMINE THAT IT WAS SELERTED CORRECTLY 

(1) 33 (OVRRUN, RXERR) 

(1) : : SYNEXT 

(1) : LENGTH: HEIGHT 

tf 

(5) RERREeeeeeeeeereeeeeeeredeeeeeeeraneeeaereaeeneeeeraeeereeeee 

(4) 004444 000004 1815: SCOPE 


ee eee eC SO 


aes —_— 
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: CNDUSA.M11 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0036 
(3) 004446 052777 000400 175252 BIS WMRESET,@TXCSR ;MASTER RESET 
| (2) 004454 015777 020000 175340 MOV WSYNEXT.@PARCSR :SET THE MODE 
(3) 004462 052777 000400 175236 BIS WMRESET.aTXCSR :MASTER RESET 
| {3} :SET MAINT DAIA,CLK,BREAK,@MAINTENANCE MODE 
(2) 004470 012777 064001 175230 MOV #MTOATA! CLK! MINT 'BREAK, aTXCSR 
(2) ;SET MODE .# OF BITS,PARITY SENSE -GLOAD SYNC REG 
(2) 004476 012777 026000 175216 MoV #SYNEXT!EIGHT!NOPAR!0,@PARCSR 
(1) 004504 052777 000020 175200 BIS WSYNSCH,@RXCSR :S ET TREARCH SYNC 
(2) sPOKE CLK TO GET LOGIC into SYNC chon TION 
(2) 004512 042777 020000 175206 BIC #CLK,@TXCSR rOOLES CLK DOWN 
(2) 004520 052777 020000 175200 BIS ack. gaTacse :POKE CLK UP 
(1) 004526 016703 175164 MOV “SET UP FOR ERROR MESSAGE 
(1) 004532 012700 000377 MOV peu iy “EXPEC TED 
(1) 004536 012767 000010 174356 MOV #8. SHIFT :# OF SHIFTS 
(1) 004544 012767 000377 174726 MOV #377, $TMP1 ‘DATA CHAR 
(1) 004552 004767 012360 JSR PC ,RPOKE ‘SHIFT IN THIS CHAR 
(1) 004556 105777 175130 TSTB ARXCSR :RXDONE ? 
(1) 004562 100401 BMI 
(1) 004564 104004 ERROR ’ s RXDONE SHOULD BE SET 
(1) 004566 017701 175124 MOV @RXDBUF ,R1 U 
(1) 004572 020001 CMP RO,R1  ;COMPARE EXPECTED VS. ACTUAL 
(1) 004574 001401 BEQ Ry; 
(1) 004576 104002 ERROR 2 :RECEIVED DATA DID NOT MATCH 
(1) SEXPECT ED DATA = CHECK MAINT DATA 
(1) “OR RECE ¢ 
(1) 004600 012767 900010 174314 MOV 3 $ ; 
(1) 606 012767 000377 174664 MOV g 77, STMPt :DAT 
(1) 004614 767 012316 JSR PC,RPOKE ‘SHIFT IN THIS CHA 
(1) zNOW SHIFT IN A SECOND CHARACTER WITHOUT READING RNDBUF 
(1) 004620 012767 000010 174274 MOV r 1FT 74 OF SHIFTS 
(1) 004626 012767 000377 174644 MOV a3 it Siar ‘DATA CHAR 
(1) 634 004767 012276 JSR :SHIFT IN THIS CHAR 
(1) 004640 012700 140377 MOV 41400001377, RO :EXPECTED DATA PLUS 
(1) ERXERR & OVRRUN 
(1) 004644 017701 175046 MOV @RXDBUF ,R1 ACTUAL 
(1) 004650 020001 CMP RO.R1 ‘;COMPARE EXP VS. ACT 
(1) 004652 001401 BEQ +8 
(1) 004654 104002 ERROR 2 :SPECIFICALLY LOOK AT RXERR & 
(1) SOVRRUN BITS...THEY BOTH SHOULD BE SET 
8157 r:THIS TEST VERIFYS WORD LENGTH SELECT OF THE 
(1) S:RECEIVER SECTION, IT USES THE ERROR FLAGS 
(1) ::TO DETERM INE Twat IT WAS SELECTED CORRECTLY 
(1) 33 COVRRUN.R 
(1) MODE : SYN te 
(1) +t SLENGTH:EIGHT 
a , 33 CHAR:0 
(5) 2 £ ReReteeeeeeeeeeeeeeeeeeeeeeeeeeeaneaneareaeearenerereaeeeeeeeee 
(4) 004656 000004 TST6: SCOPE 
(3) 004660 052777 000400 175040 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 004 012777 020000 175026 MOV #SYNEXT.@PARCSR :SET THE MODE 
(3) 004674 052777 660500 175024 BIS #MRESET.aTXCSR :MASTER RESET 
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CNDUSA.M11 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0037 
(2) 
(2) ySET MAINT DATA, CLK,BREAK on AINTENANCE MODE 
(3) 004702 012777 064001 175016 MOV #MTOATA!CLK! MINT !BREAK,a@TXCSR 
(2) :SET MODE .# OF BITS,PARITY SENSE, 8LOAD SYNC REG 
(2) 004710 012777 026000 175004 MOV #SVNEXT!EIGHT !NOPAR? 0. aP 
(1) 004716 052777 000020 174766 BIS WSYNSCH,@RXCSR ;SET § SEARCH SYNC 
(2) :POKE CLK TO GET Posie” into SYNCRONIZA 
(2) 004724 042777 020000 174774 BIC #CLK,aTXCSR att “ak DOWN 
(2) 004732 052777 020000 174766 BIS #CLK.aTXCSR SPOKE CLK UP 
(1) 004740 016703 174752 MOV RXDBUF ,R3 :SET us’ FOR ERROR MESSAGE 
(1) 004744 012700 000000 MOV #0,RO EXPECT 
(1) 004750 012767 000010 174144 MOV 4#8.,SH 34 OF SHIFTS 
(1) 004756 012767 000000 174514 MOV *$TMP1 :DATA CHA 
(1) 004764 004767 012146 JSR PC -RPOKE * SHIFT in THIS CHAR 
(1) 004770 105777 174716 TSTB @RXCSR ;RXDONE ? 
(1) 004774 100401 BMI + 
(1) 004776 104004 , ERROR 4 sRXDONE SHOULD BE SET 
(1) 005000 017701 174712 MOV @RXDBUF ,R1 T 
(1) 005004 020001 CMP RO,R1 s COMPARE’ EXPECTED VS. ACTUAL 
(1) 005006 001401 BEQ .+ 
(1) 005010 104002 ERROR 2 :RECEIVED DATA DID NOT MATCH 
(1) ‘EXPECTED DATA = CHECK MAINT DATA 
(1) 7OR RECEIVER LOGIC 
(1) 005012 012767 000010 174102 MOV #8.,SHIFT :# OF SHIFTS 
(1) 005020 012767 000000 174452 MOV #0,STMPI DATA CHAR 
(1) 005026 004767 012104 JSR OKE [SHIFT IN THIS CHAR 
(1) NOW SHIFT INA ste CHARACTER WITHOUT READING RXDBUF 
(1) 005032 012767 000010 174062 MOV 24 OF SHIFTS 
(1) 005040 012767 000000 174432 MOV ea sup DATA, CHAR 
(1) 005046 004767 012064 JSR er *RPOKE ‘SHIFT IN THIS CHAR 
(1) 005052 012700 140000 MOV #14000010,R0 ZEXPECTED DATA PLUS 
(1) ' SRXERR & OVRRUN 
(1) 005056 017701 174634 MOV @2XDBUF ,R1 SACTUAL 
(1) 005062 020001 e CMP RO,R1 ‘“sCOMPARE EXP VS. ACT 
(1) 005064 001401 E , BEQ .+ 
(1) 005066 104002 ERROR 2 sSPECIFICALLY LOOK AT RXERR & 
(1) SOVRRUN BITS... THEY BOTH SHOULD BE SET 
8158 ss THIS TEST VERIEYS WORD LENGTH SELECT OF RECEIVER 
(1) SSECTION ,I1T USES THE ERROR FLAGS TO DETERMINE 
(1) iS THAT IT WAS SELECTED PROPERLY 
(1) ZZFRAME ERROR (FRMERR D AXED RR) 
(1) ‘RODE 1s0c (1SYMOD) 
(1) 73LENG 
tf _ 
(5) eRe ReeeReeReeeeeeeeeeeeeeeeeeeeaaateeeeeaneeeeeaeeeeeeereneeer 
4) 005070 000004 1817: SCOPE 
(3) 005072 052777 000400 174626 BIS #MRESET,@TXCSR ;MASTER RESET 
2) 005100 012777 000000 174614 MOV #ISYMOD,@PARCSR :SET THE MODE 
(3) 005106 052777 000400 174612 BIS #MRESET.a@TXCSR :MASTER RESET 
(2) 3SET MAINT DATA, CLK BREAK MAINTENANCE MODE 
(2) 005114 012777 064001 174604 MOV § #MTDATA!CLK! MINT! BREAK, a@TXCSR 
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CNDUSA.M11 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0038 
(2) 
(2) :SET MODE ,# OF BITS, gARITY SENSE 2LOAD SYNC REG 
(2) 005122 012777 000000 174572 MOV #ISYMOD! F IVE 'NOPAR!0,a@PARCSR 
(2) 005130 052777 000020 174554 BIS WSYNSCH,@RXCSR ;SET SYNC SEAR 
(2) :POKE CLK TO ch RECEIVER NTO SYNGROI ZATION... 
(2) 005136 042777 020000 174562 BIC w#cLk kat XCSR :POK KE CLK DOWN 
(2) 005144 052777 020000 174554 BIS #CLK,aTXCSR KE CLK UP 
(2) :POKE CLK TO GET toate INTO sycRONI ZATION 
(2) 005152 042777 020000 174546 BIC #CLK,aTXCSR :POKE CLK DOWN 
(2) 005160 052777 020000 174540 BIS #CLK ATXCSR SPOKE CLK UP 
(1) 005166 012767 000007 173726 MOV #7, SHIFT :# OF SHIFTS 
(1) 005174 012767 000052 174276 MOV #52,$TMP1 ‘DATA CHAR 
(1) :NOTE: THE ABOVE CHARACTER IS MISSING STOP BIT 
(1) 005202 004767 011730 JSR PC,,RPOKE SH IFT IN THIS CHAR 
(1) 005206 016703 174504 HOV RXDBUF ,R3 “FOR ERROR MESSAGE 
(1) 005212 012700 120025 MOV #RXERR'FRMERR!25, RO s EXPECTED 
(1) 005216 017701 174474 MOV @RXDBUF , T 
(1) 005222 020001 CMP RO,R1 :COMPARE EXP VS ACT 
(1) 005224 001401 BEQ + 
(1) 005226 104000 ERROR :FRAME ERROR 4 & RX ERROR SHOULD BE SET 
(1) :1F LOWER BYTE DOES NOT MATCH IT 
(1) :PROBABLY IS A LENGTH SELECT PROBLEM 
8159 ss THIS TEST VERIFYS WORD LENGTH SELECT OF RECEIVER 
(1) S:SECTION ,IT USES THE ERROR FLAGS TO DETERMINE 
(1) GSTHAT IT WAS SELECTED PROPERLY 
(1) iF ERROR (FRMERR 
(1) < MODES Oc (ISY 
(1) LENGTH: SIX 
Ht Sew 
(5) PPITITIIITITITITLITTTLLI Ti TiTLiftLi tilt tiitiiit kit hhh Like 
(4) 005230 000004 TST10: SCOPE 
(3) 005232 052777 000400 174466 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 005240 012777 000000 174454 MOV #ISYMOD.@PARCSR :SET THE MODE 
(3) 005246 052777 000400 174452 BIS WMRESET.@TXCSR :MASTER RESET 
(2) :SET MAINT DATA,CLK,BREAK MAINTENANCE MODE 
(2) 005254 012777 064001 174444 MOV #MTOATA!CLK'MINT !BREAK,@TXCSR 
(2) :SET MODE .# OF BITS.PARITY SENSE BLOAD SYNC REG 
(2) 005262 012777 002000 174432 MoV #1SYMOD ! SIX! NOPAR ‘0 apA RCS 
(2) 005270 052777 000020 174414 BIS WSYNSCH,a@RXCSR ;SET SYNC SEARCH 
(2) >POKE CLK TO GET RECEIVER fuTD SYNCROIZATION. ... 
(2) 005276 777 020000 174422 BIC #CLK Ka TXCSR sPOKE cLk DOWN 
(2) 005 052777 020000 174414 BIS #CLK.aTXCSR *POKE CLK UP 
(2) :POKE CLK TO GET tocie INTO SYNCRONIZATION 
(2) 005312 042777 020000 174406 BIC #CLK ,@TXCSR :POKE CLK DOWN 
(2) 005320 052777 020000 174400 BIS r te *aTXCSR SPOKE CLK UP 
(1) 005326 O12? 000010 173566 MOV 4 SHIFT :# OF SHIFTS 
py ee ee ees Se :NOTE: THE ABOVESCHARACTER 1S MISSING STOP BIT 
(1) 005342 004767 011570 JSR PC RPOK : sSHIFT IN THIS CHAR 
(1) 005 346 016703 174344 MOV RXOBUF -R3 [FOR ERROR MESSAGE 
(1) 005352 012700 120025 MOV BRXERRIFRMERR!25°RO sEXPECTED 
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\CNDUSA.M11 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0039 
| 
/ (1) 005356 «017701 174334 MOV @RXDBUF RI sACTU 
| (1) 005362 020001 CMP RO,R1 —;COMPARE’ PAP vs ACT 
' 6) 001401 BEQ +8 
| (1) 005366 104000 ERROR ;FRAME ERROR 4 & RX ERROR SHOULD BE SET 
; a LOWER BYTE DOES NOT MATCH IT 
| (1) < PROBABLY IS A LENGTH SELECT PROBLEM 
8160 zs THIS TEST VERIEYS, WORD LENGTH SELECT OF RECEIVER 
(1) ON ,I1T USES THE ERROR FLAGS TO DETERMINE 
(1) ae IT WAS SELECTED PROPERLY 
(1) S:FRAME ERROR (FRMERR, RKERRS 
i = 4) t:MODE:ISOC (ISYMOD) 
(1) 3 SLENGTH: SEVEN 
(1) T:CHAR: 125 
(5) UT TT TTTT TTT TTT TTT TTT LETT TUTE TTT TTT TTT TTT TTT TTT TTT TT TTT TTT 
(4) 005370 000004 T8111: SCOPE 
(3) 005372 052777 000400 174326 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 005400 012777 000000 174314 MOV MISYMOD,@PARCSR :SET THE MODE 
(3) 005406 052777 000400 174312 BIS #MRESET.aTXCSR :MASTER RESET 
dc 
(2) ;SET MAINT DATA,CLK BREAK ,SMAINTENANCE MODE 
(2) 005414 012777 064001 174304 MOV #MTOATA! CLK!MINT!BREAK,a@TXCSR 
(2) sSET MODE .# OF BITS. PARITY SENSE LOAD SYNC REG 
(2) 005422 012777 004000 174272 MOV #ISY fap! SEVEN! NOPAR!0,aP ARCS 
(2) 005430 052777 000020 174254 BIS #SYNSCH, aRXCSR eet tT SYNC SEARCH 
(2) sPOKE CLK TO GET RECEIVER INTO SONEROTTATION.... 
(2) 005436 042777 020000 174262 BIC #CLK ,aTXCSR sPOKE CLK DOWN 
(2) 005444 052777 020000 174254 BIS #CLK.aTXCSR POKE CLK 
(2) :POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(2) 005452 042777 020000 174246 BIC #CLK,aTXCSR :POKE CLK D 
(2) 005460 052777 020000 174240 BIS #CLK.aTXCSR SPOKE CLK UP 
(1) 005466 012767 000011 173426 MOV #9. SHIFT 34 OF SHIFTS 
(1) 005474 012767 000252 173776 4252, TA CHAR 
(1) NOTE: THE “ABOVE. CHARACTER 1S MISSING STOP BIT 
(1) 005502 004767 011430 AR T IN THIS CHAR 
(1) 005506 016703 174204 iov RKOBUE RS OR ERROR MESSAGE 
(1) 005512 012700 120125 MOV #RXERR! ae, RO EXPECT 
(1) 005516 017701 174174 MOV @RXDBUF , sACTUA 
(1) 005522 020001 CMP RO,.R1 ‘;COMPARE EXP VS ACT 
(1) 005524 001401 BEQ + 
(1) 005526 104000 ERROR ;FRAME ERROR 4 & RX ERROR SHOULD BE SET 
(1) :1F LOWER BYTE DOES NOT MATCH IT 
i) [PROBABLY IS A LENGTH SELECT PROBLEM 
8161 is THIS TEST VERIFYS WORD LENGTH SELECT OF RECEIVER 
(1) z3SECT 10N ,IT USES THE ERROR FLAGS TO DETERMINE 
(1) STHAT IT WAS SELECTED PROPERLY 
(1) 3; FRAME ERROR (FRMERR,RXERR) 
(1) [MODE : 1SOC (1S¥HOD) 
(1) 3 sLENGTH: sEIGHT 
Hf ‘wool 
(5) 3 2 Seeeeeeeeeeeeeeeeeereeeeeeteeeareaeeeneeteereeeeeeeeneeeeeeeeee 
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005530 
005532 


005540 
005546 


005554 


005670 
005672 
005700 
005706 
005714 


005722 
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000400 
000000 
000400 


064001 
006000 
000020 
020000 
020000 
020000 
020000 
000012 
000252 


011270 


000400 
000000 
000400 
064001 


001400 
000020 


020000 
020000 
020000 


INITIALIZE THE COMMON TAGS 

TST12: SCOPE 
174166 BIS #MRESET,@TXCSR ;MASTER RESET 
174154 MOV #ISYMOD,@PARCSR ;SET THE MODE 
174152 BIS #MRESET,@TXCSR ;MASTER RESET 


SET MAINT DATA, CLK BREAK ,@MAINTENANCE MODE 


174144 MOV #MTDATA! CLK! MINT !BREAK,@TXCSR 
SET MODE ft OF BITS,PARITY SENSE, LOAD SYNC REG 
174132 #1SYMOD!EIGHT !NOPAR!0,aPAR 
174114 BIS WSYNSCH,@RXCSR ;SET SYNC SEARCH 
sPOKE CLK TO GET RECEIVER INTO SYNCROIZATION. . .. 
174122 BIC #cLK at XCSR zPOKE CLK DOWN 
174114 BIS #CLKaTXCSR POKE CLK UP 
zPOKE CLK TO GET LOGIC INTO syuchONT ZATION 
174106 BIC #CLK,aTXCSR 3POKE CLK DOWN 
174100 BIS #CLK.aTXCSR SPOKE CLK UP 
173266 MOV #10. SHIFT :# OF SHIFTS 
173636 MOV MP1 ‘DATA CHAR 
NOTE: THE Bove CHARACTER IS MISSING STOP BIT 
PC,R POK :SH HIFT IN THIS CHAR 
mov RXDBUF ,R3 FOR ERROR MESSAGE 
MOV PRXERR!FRAERR! 125, RO ——s EXPECTE 
MOV @RXDBUF , L 
CMP RO R1 ‘:COMPARE EXP VS ACT 
ERROR TFRAME ERROR 4 & RX ERROR SHOULD BE SET 
s1F LOWER BYTE DOES 


NO H 
;PROBABLY IS A LENGTH SELECT PROBLEM 
Ad ie TEST VERIFYS EVEPAR PARITY SENSE 
HE REC R 


s30F T EIVE 
t:MODE:ISOC (ISYMOD) 
+: PARITY :EVEPAR 
3 sLENGTH:FIVE PLUS PARITY 
Z3CHAR: 25 
PIISTITITILI TILL TTTLITLIiTiiitiiti Litt Lit iii ttt Lite hee ik 
1ST13: SCOPE 
174026 BIS #MRESET,@TXCSR MASTER RESET 
174014 MOV #ISYMOD.@PARCSR :SET THE MODE 
174012 BIS WMRESET.aTXCSR :MASTER RESET 
zSET MAINT DATA,CLK,BREAK,&MAINTENANCE MODE 
174004 MOV #MTDATA!CLK!MINT !BREAK,aTXCSR 
:SET MODE .# OF BITS, PARITY SENSE -SLOAD SYNC res 
173772 MOV #ISY Hop | FIVE 'EVEPAR!0, aPARCSR 
173754 BIS WSYNSCH.@RXCSR ;S Ef SYNC SEARCH 
-POKE CLK TO GET RECEI Pel’ FlTO SYNCROI ZATION... 
173762 BIC #cLK at KCSR ; POKE CLK DOWN 
173754 BIS #CLKaTXCSR CLK UP 


:POKE CLK TO GET tbele iNTO SYNCRONIZATION 
173746 BIC #CLK ,aTXCSR sPOKE CLK DOWN 


SEQ 0040 
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INITIALIZE THE COMMON TAGS 


BIS #CLKATXCSR ;POKE CLK 

MOV RXDBUF »R “SET UP FoR ERROR MESSAGE 
MOV ARXERR!PARER! 25,20 EXPECTED 

MOV HIF :# OF SHIFTS 

MOV #258, STMP1 SDATA CHA 

JSR PC ,RPOKE * SHIFT iNT THIS CHAR 

iste @RKCSR :RXDONE ? 

ERROR 4 i RXDONE SHOULD BE ASSERTED 
MOV @RXDBUF ,R1 UAL 

CMP RO.R1 :COMPARE EXP VS. ACT 


B + 

ERROR = ;PARITY ERROR 4 @RXERR SHOULD BE SET 
NOTE THAT ‘ gel BIT SHOULD 
SHOW UP IN THE DAT 

;1E. BIT FIVE FOR rive LEVEL CODE 


2s THIS ee ice EVEPAR PARITY SENSE 


sEVEPA 
seuENernsglX PLUS PARITY 


5 enenenaceenenqncececcesececqcccenceneseqnnenceencnceeecesceces 


S114: SCOPE 


BIS #MRESET,@TXCSR 
MOV #ISYMOD,@PARCSR ;SET THE MODE 
BIS WMRESET,@TXCSR MASTER RESET 


SET MAINT DATA, PF ere N SMAINTENANCE MODE 
MOV #MTOATA!CLK!MINT !BREAK @TXCSR 


:SET MODE .# OF BITS.PARITY SENSE. LOAD SYNC REG 

MOV #ISYMOD! SIX!EVEPAR!0,aP ARCSR 

BIS #SYNSCH,@RXCSR ;SET SYNC SEARCH 

sPOKE CLK TO a RECEIVER INTO SYNCROIZATION.... 

BIC #cLK atk R :POKE CLK DOWN 

BIS #CLK.aTXCSR CLK UP 
:POKE CLK TO GET tocie INTO sychont ZATION 

BIC #CLK,aTXCSR :POKE CLK DOWN 
BIS #clK al XCSR :POKE CLK UP 
MOV RXDBUF ,R :SET UP FOR ERROR MESSAGE 
MOV #RXERRPARER!25,RO RO XPECTED 


MASTER RESET 


MOV suiFt FTS 
MOV #55 STHPI ATA 
JSR PC ,RPOKE > SHIFT i THIS CHAR 
TsTe @RKCSR :RXDONE ? 
+ 
ERROR 4 :RXDONE SHOULD BE ASSERTED 
MOV @RXDBUF ,R1 A 


ACTUAL 
CMP RO R1 °;COMPARE EXP VS. ACT 


BEQ 
ERROR IPARITY ERROR 4 &RXERR SHOULD BE SET 
NOTE THAT THE PARITY BIT SHOULD 


SEQ 0041 
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CNDUSA.M11 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0042 


sSHOW UP IN THE DATA 


~~ 
ss 
— 


(1) SIE. BIT SIX FOR SIX LEVEL CODE 
8164 :eTHIS TEST VERIEYS EVEPAR PARITY SENSE 

(1) : MODE : ISOC CISYMOD) 

(1) +: PARITY: EVEPAR 

(1) 3 LENGTH: SEVEN PLUS PARITY 

(1) Z3CHAR: 325 

(5) PUTT IT ITTICII IIT IIIT ITT Titi Tit titi ii tii titi iti tii iii i titi itt i. 

(4) 006210 000004 TST15: SCOPE 

(3) 006212 052777 000400 173506 BIS WMRESET,a@TXCSR ;MASTER RESET 

(2) 006220 012777 000000 173474 MOV #ISYMOD,@PARCSR :SET THE MODE 

(3) 006226 052777 000400 173472 BIS WMRESET.aTXCSR :MASTER RESET 

(2) ;SET MAINT DATA,CLK,BREAK,@MAINTENANCE MODE 

(3) 006234 012777 064001 173464 MOV #MTDATA!CLK !MINT!BREAK,aTXCSR 

(2) :SET MODE ,# OF BITS, gPARLTY SENSE,8LOAD SYNC REG 

(2) 006242 012777 005400 173452 MOV #I1SYMO D! SEVEN: EVEBAR: 0,aPARCSR 

(2) 006250 052777 000020 173434 BIS WSYNSCH,@RXCSR ;SET SYNC SEARCH 

(2) sPOKE CLK T9 GET RECEIVER: NTO SYNCROIZATION.... 

(2) 006256 042777 020000 173442 BIC ace kat XCSR ;POK cL DOWN 

(2) 006264 052777 020000 173434 BIS #CLK.@TXCSR POKE CLK UP 

(2) :POKE CLK TO GET LOGIC INTO SYNCRONIZATION 

(2) 006272 042777 920000 173426 BIC #CLK ,aTXCSR sPOKE CLK DOWN 

(2) 006300 052777 020000 1734 BIS #CLK -QTXCSR *POKE CLK UP 

(1) 006306 016703 MOV RXDBUF -R ?SET UP FOR ERROR MESSAGE 

(1) 006312 012700 110325 MOV #RXERR!PARER! 325.R0 s EXPECTED 

(1) 006316 012767 000012 172576 MOV #10.,SHIF :# OF SHIFTS 

(1) 006324 012767 001652 173146 MOV #1652,$TMP1 [DATA CHAR 

(1) 006332 00.767 010600 JSR PC ,RPOKE iSHlFt™ IN THIS CHAR 

(1) 006336 105777 173350 TSTB  @RXCSR ;RXDONE ? 

(1) 006342 100401 BMI +4 

(1) 006344 104004 ERROR 4 : RXDONE SHOULD BE ASSERTED 

(1) 006346 017701 173344 MOV @RXDBUF ,R1 UAL 

(1) 006352 020001 CMP RO,R1 ‘;COMPARE’ exe VS. ACT 

(1) 006354 001401 BEQ + 

(1) 006356 104000 ERROR PARITY ERROR 4 GRXERR SHOULD BE SET 

(1) THAT THE PARITY BIT SHOULD 

(1) ?SHOW UP IN THE DATA 

(1) [1E. BIT SEVEN FOR SEVEN LEVEL CODE 
8165 ri THIS TEST VERIFYS EVEPAR PARITY SENSE 

(1) SIOF THE RECEIVER 

(1) S:MODE:ISOC (ISYMOD) 

(1) : SPARITY :EVEPA 

(1) z3L ENGTH: :E1GHT PLUS PARITY 

(1 + 

(5) té  Reeeeeeeeeeeeeeeterereeeeereeeeeaeegneareaeearenereeeereareeete 

(4) 006360 000004 1S116: SCOPE 

(3) 006362 052777 000400 173336 BIS WMRESET,@TXCSR MASTER RESET 
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006526 104000 


006530 000004 
006532 052777 


006540 012777 
006546 052777 


006554 012777 
006562 012777 


006570 052777 


006576 042777 
006604 052777 


006612 042777 


oe ee ee Ore aaa are rata eee 
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2 10:55 INITIALIZE THE COMMON TAGS 

000000 173324 MOV MISYMOD,@PARCSR ;SET THE MODE 
000400 173322 BIS #MRESET.a@TXCSR :MASTER RESET 

;SET MAINT DATA,CLK BREAK MAINTENANCE MODE 
064001 173314 MOV #MTDATA! CLK! MINT !BREAK,@TXCSR 

;SET MODE .# OF BITS,PARITY SENSE.LOAD SYNC REG 
007400 173302 MOV #1SYMOD tEIGHT LEVEPAR R!0,@PARCSR 
000020 173264 BIS WSYNSCH.@RXCSR ;SET SYNC SEARCH 

-POKE CLK TO GET RECE eivek® elTo SYNCROIZATION.... 

020000 173272 BIC #CLK,aTXCSR :POKE cL DOWN 
020000 173264 BIS #CLK aTXCSR *POKE CLK UP 

:POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
020000 173256 BIC #CLK,aTXCSR :POKE CLK DOWN 
020000 173250 BIS #CLK, OTHER SPOKE CLK 
173234 MOV RXDBUF ,R3 SET UP FoR’ ERROR MESSAGE 
110125 MOV #RXERR! PARER! 125, RO s EXPECTED 
000013 172426 MOV SHIFT # OF SHIFTS 
003252 172776 MOV 43255 STHPI SDATA CHA 
010430 JSR PC ,RPOKE ;SH IFT IN THIS CHAR 
173200 TsTB ARKCSR SRXDONE ? 

+ 
ERROR 4 : RXDONE SHOULD BE ASSERTED 

173174 MOV @RXDBUF ,R1 


CMP RO,R1 ";COMPARE™ "EXP VS. ACT 


BEQ + 
ERROR ;PARITY ERROR 4 @RXERR SHOULD BE SET 


3sTHIS TEST VERIFYS ODDPAR PARITY SENSE 
33 OF a REC R 


:0D0 
2¢LENGTH: FIVE PLUS PARITY 
es R: 65 


$117: SCOPE 

000400 173166 BIS WMRESET,a@TXCSR ;MASTER RESET 
000000 173154 MOV #ISYMOD,a@PARCSR :SET THE MODE 
000400 173152 BIS WMRESET.aTXCSR :MASTER RESET 


SET MAINT DATA,CLK, BREAK, SMAINTENANCE MODE 
064001 173144 MOV #MTDATA! CLK !MINT !BREAK ,@TXCSR 


SET MODE ,# OF BITS, yf bs eet pei OAp SYNC REG 
MoV #ISY fap! 


001000 173132 FIVE !ODDP R10 ap ARCSR 
600020 173114 BIS MSYNSCH.@RXCSR ;SET SYNC SEAR 
sPOKE CLK TO cet RECE mis ATO SYNCROI SATION... 

020000 173122 BIC aclK, TXCSR :POK KE cLk DOWN 
020000 173114 BIS XCSR KE CLK UP 

:POKE CLK TO GET i TNtO SYNCRONIZATION 
020000 173106 BIC #CLK ,aTXCSR POKE CLK DOWN 
020000 173100 BIS #CLK.aTXCSR SPOKE CLK 
173064 MOV RXDBUF ,R3 SET UP FOR ERROR MESSAGE 
110065 MOV GAXEDRIPARER!6S, Fr sEXPECTED 


PTTTTITITITITITITILITILL LILI T LLL LLL t Tete 


SEQ 0043 
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2 10:55 INITIALIZE THE COMMON TAGS 
000010 172256 MOV H: SHIFT :# OF SHIFTS 
000352 172626 MOV 53 $TMP1 [DATA CHAR 
010260 JSR PC, RPOKE SHIFT IN THIS CHAR 
173030 iste @RKCSR  RXDONE :° 
ERROR & i RXDONE SHOULD BE ASSERTED 
173024 MOV @RXDBUF RI ACTUAL 
CMP ROR]: COMPARE EXP VS. ACT 
+ 
ERROR :PARITY ERROR 4 ORXERR SHOULD BE SET 
SNOTE T T THE PARITY BIT SHOULD 
+ SHOW o INT 


HE DATA 
IE. BIT FIVE FOR FIVE LEVEL CODE 
2s THIS TEST veRttys ODDPAR PARITY SENSE 


Pp 
: LENGTH: SIX PLUS PARITY 
125 


PITTIIIIIII ICT ITIL ITIL TTT LiLiLitiiiiiiiiti titi titi itt itil 


18120: SCOPE 
000400 173016 BIS WMRESET,@TXCSR ;MASTER RESET 
000000 173004 MOV #ISYMOD,@PARCSR ;SET THE MODE 
000400 173002 BIS #MRESET,@TXCSR ;MASTER RESET 


SET MAINT DATA,CLK,BREAK ,@MAINTENANCE MODE 
MOV #MTDATA!CLK!MINT!BREAK aTXCSR 


SET MODE ,# OF BITS,PARITY SENSE , @LOAD SYNC REG 
2762 MOV #ISYMOD! SIX! ODDPAR!0,aPARCSR 


064001 172774 


003000 


17 : 
000020 172744 BIS WSYNSCH,ARXCSR ;S SET SYNC SEARCH 
sPOKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
020000 172752 BIC a#cL ,at KCSR :POKE cLk DOWN 
020000 172744 BIS #CLK.aTXCSR *POKE CLK 
:POKE CLK TO GET LOGiC INTO SYWchONI ZATION 
020000 172736 BIC #CLK,aTXCSR POKE CLK DOWN 
020000 172730 BIS acLk. oTXCSR ZPOKE CLK UP 
1727146 MOV RXDBUF ,R3 T UP FOR ERROR MESSAGE 
110125 MOV ARNERRPARER!125, 30 s EXPECTED 
000011 172106 MOV FT :# OF SHIFTS 
000652 172456 MOV #052 STHPI [DATA CHAR 
010110 JSR PC, RPOKE SHIFT IN THIS CHAR 
172660 tste “ee! ZRXDONE ? 
ERROR ZRXDONE SHOULD BE ASSERTED 
172654 MOV apxpeut a SACTU 
CAP RO;R1 :COMPARE EXP VS. ACT 


8 

ERROR PARITY ERROR 4 &RXERR SHOULD BE SET 
NOTE THAT i: ae Ny BIT SHOULD 
;SHOW UP IN THE DATA 

s1E. BIT SIX FOR SIX LEVEL CODE 


SEQ 0044 


CNDUS=A MACY11 foc 1066) 
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007050 
007052 


007060 
007066 


007074 


007220 
007222 
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052777 


012777 
052777 


012777 
012777 


052777 


042777 
052777 


000004 


052777 
012777 
052777 
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14=DEC-82 09:59 PAGE 61-31 
10:55 INITIALIZE THE COMMON TAGS 


3;THIS TEST VERIFYS ODDPAR PARITY SENSE 
230F THE RECEIVER 
sMODE: ISOC (ISYMOD) 
SIPARITY: ODDPAR 
rt a eg SEVEN PLUS PARITY 
;CHAR: 125 


TTITITITITILITITILILILI LLL LLL 


$121: SCOPE 
000400 172646 BIS #MRESET,@TXCSR ;MASTER RESET 
000000 172634 MOV MISYMOD.@PARCSR :SET THE MODE 
000400 172632 BIS #MRESET.@TXCSR :MASTER RESET 
SET MAINT pPATA-CLK BREAK. SMAINTENANCE MODE 
064001 172624 #MTDATA! CLK! MINT !BREAK,@TXCSR 
SET MODE f OF BITS. gPARLTY SENSE ,SLOAD SYNC <fes 
005000 172612 #1SYMOD ! SEVEN! ODDPAR!0,aPARCS 
000020 172574 Bis #SYN Sch ;@RXCSR ;SET SYNC SEAR 
sPOKE CLK TO GET RECE EIvER INTO STNCROLSATION.... 
020000 172602 BIC #cLK at XCSR : pOKE CLK DOWN 
020000 172574 BIS #CLK.aTXCSR KE CLK UP 
:POKE CLK TO GET Logie INTO svuchoNt AS 10N 
020000 172566 BIC #CLK,a@TXCSR :POKE CLK DOWN 
020000 172560 BIS #cLK. *“aTXCSR 3POKE CL* UP 
172544 MOV RXDBUF ,R3 SET UF FOR ERROR MESSAGE 
110125 MOV RRANERRIPARER! 125° RO XPECTED 
000012 171736 MOV g HIF suirt FTS 
001252 172306 MOV #1252, STMPI ATA CHA 
007740 JSR PC ,RPOKE " SHIFT Inn THIS CHAR 
172510 tste @RKCSR ZRXDONE ? 
ERROR 4 : RXDONE SHOULD BE ASSERTED 
172504 MOV @RXDBUF ,R1 T 
CMP RO.R1 COMPARE’ EXP VS. ACT 
e* 
ERROR :PARITY ERROR 4 &RXERR SHOULD BE SET 
SNOTE THAT THE PARITY BIT SHOULD 
;SHOW UP IN THE DA 
SIE. BIT SEVEN FOR SEVEN LEVEL CODE 
rzTHIS TEST VERIFYS ODDPAR PARITY SENSE 
330F THE RECELV 
E: Isoc (1SYMOD) 
:SPARITY :ODDPA 
3SLENGTH:EIGHT PLUS PARITY 
ZECHAR: 125 
PITIIITIITITITI ITLL LiL LLL Li Liiii tii t tht 
18122: SCOPE 
000400 172476 BIS WMRESET,@TXCSR ;MASTER RESET 
000000 172464 MOV #ISYMOD.a@PARCSR :SET THE MODE 
000400 172462 BIS #MRESET.aTXCSR :MASTER RESET 


SEQ 0045 
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59 PAGE 61-32 
INITIALIZE THE COMMON TAGS 


3SET MAINT weed str SHAINTENANCE MODE 
MOV #MTDATA!CLK! MINT !BREAK,@TXCSR 


3SET on * - OF at evs popitie SENSE ,@LOAD SYNC _ 


MOD! EIGHT !ODDPAR!0,aP BPARCSR 
BIS aSYNSCH @RXCSR ;SET SYNC SEA 
>POKE CLK TO GET RECEI Pivek® FATO STNCROT SATION... 
BIC #cLk Kat KCSR :POKE cLK DOWN 
BIS uP 
sPOKE CLK TO GET skocie: Into synchonl SATION 
BIC #CLK,aTXCSR :POKE CL k DOWN 
BIS aclk, -QTXCSR SPOKE CLK UP 
MOV RXDBUF ,R3 :SET UP FOR ERROR MESSAGE 
MOV #RXERR!PARER!125, RO s EXPECTED 
MOV " FT F SHIFTS 
MOV #2252,$TMP1 {DATA C 
JSR PC ,RPOKE ;SHIFT iN THIS CHAR 
ste BRKCSR sRXDONE ? 
ERROR 4 :RXDONE SHOULD BE ASSERTED 
MOV @RXDBUF ,R1 
CMP RO.R1 : COMPARE EXP VS. ACT 


ERROR PARITY ERROR 4 GRXERR SHOULD BE SET 
:zTHIS TEST PERFORMS BINARY DATA CHECK ON THE 
:SLENGTH:EIGHT PLUS PARITY 

3 SPARITY: EVEPAR 


PPITTITITISTI TILL I TLL LTTLII TL t titi ttt ttt tht hike ik 
TST23: SCOPE 

BIS WMRESET,@TXCSR ;MASTER RESET 

MOV #ISYMOD ,@PARCSR ;SET THE MODE 

BIS WMRESET,@TXCSR ;MASTER RESET 


SET MAINT DATA,CLK,BREAK ,@MAINTENANCE MODE 
MOV #MTDATA!CLK!MINT !BREAK ,a@TXCSR 


SET MODE ,# OF BITS, PARITY SENSE ,@LOAD SYNC REG 
MoV #1SYROD 5 


D!EIGHT!EVEPAR!0, aPA 
BIS WSYNSCH.@RXCSR ;SET SYNC SEARC 
:POKE CLK TO Get RECEIVER INTO SYNCROLJATION.... 
BIC aCLk, aTXxcsr :POK KE cLK DOWN 
BIS #CLK aTXCSR POKE CLK 
:POKE CLK TO GET Logie INTO syuchONt ZA TON 
BIC #CLK,aTXCSR :POKE CLK Do 
BIS #CLk. itt 3POKE ¢ 
MOV RXDBUF ,R3 SET up’ ERROR MESSAGE 
CLR R *DATA CHAR 
1$: MOV R4,RO EXPECTED 
MOV #11. SHIFT 34 OF SHIFT 
MOV R4,STMP% :"'T0 BE IBHLETED CHARACTER" 
JSR PC.EVENS [CALC PARITY 


SEQ 0046 


(Fr ne ne re oe ee eee ee re ee eee > eee coe ae = -= 


“CNDUS=A MACY11_30(1046) 14=DEC=82 09:59 PAGE 61-33 
‘CNDUSA.M11 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0047 
| = (1) 007514 «000241 CLC 
(1) (00751 906167 171756 ROL STMP1 ;:GENERATE START BIT 
/ (1) 007522 052767 002000 171750 BIS #BIT ;GENERATE STOP BIT 
a :$TMP1 NOW HAS CHARACTER TO BE POKED INTO RECEIVER 
| = 1) 007530 «004767 007402 JSR PC,RPOKE ;SHIFT IN THIS CHAR 
' (1) 007534 017701 172156 HOV @RXDBUF ,R1 TUAL 
| 1) 007540 020001 CMP RO,R1 ‘°;COMPARE EXP VS ACT 
' (1) 007542 001401 BEQ +4 
| (1) 007544 104002 ERROR 2 :DATA CHARS SHOULD MATCH 
(1) + THERE SHOULD BE NO PARITY ERROR 
(1) 007546 005204 INC R4 {UPGRADE | NEXT CHAR 
(1) 007550 105704 TSTB RG [LAST CHA 
| (1) 007552 001350 BNE 1$ 
| 8171 3s THIS TEST PERFORMS BINARY DATA CHECK ON THE 
a. 3 LENGTH: EIGHT PLUS PARITY 
(1) : ISYMOD 
(1) 3 SPARITY: ODDPAR 
(5) PITITITIITII IIIT TIT iti ti TTT titit it itititiiitiiiii itt iit itt 
(4) 007554 000004 18124: SCOPE 
(3) 007556 052777 000400 172142 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 007564 012777 000000 172130 MOV MISYMOD,@PARCSR :SET THE MODE 
(3) 007572 052777 000400 172126 BIS #MRESET,aTXCSR :MASTER RESET 
(2) ySET MAINT DATA,CLK,BREAK,@MAINTENANCE MODE 
(2) 007600 012777 064001 172120 MOV AMTOATA! CLK! MINT !BREAK,@TXCSR 
(2) ;SET MODE .# OF BITS.PARITY SENSE GLOAD SYNC REG 
(2) 007606 012777 007000 172106 MOV #ISYMOD! EIGHT !ODD BAR! 0,aPARCSR 
(2) 007614 052777 000020 172070 BIS ASYNSCH,@RXCSR ;SET SYNC SEARCH 
(2) sPOKE CLK TO GET RECEIVER: ero SYNCROIZATION.... 
(2) 007622 042777 020000 172076 BIC #cLK atk CSR :POKE cLk DOWN 
(2) 007630 052777 020000 172070 BIS TXCSR *POKE CLK UP 
(2) zPOKE CLK TO GET wtbete INTO SYNCRONIZATION 
(2) 007636 042777 020000 172962 BIC #CLK,aTXCSR :POKE ¢ K DOWN 
(2) 007644 052777 020000 172054 BIS #CLK.aTXCSR :POKE cL 
(1) 007652 016703 172040 MOV RXDBUF ,R3 ‘SET UP ERKOR MESSAGE 
(1) 007656 005004 CLR SDATA CHAR 
(1) 007660 010400 1$: MOV R4,RO EXPECTED 
(1) 007662 012767 000013 171232 MOV wii. SHIFT :# OF SHIFTS 
(1) 007670 010467 171604 MOV R4,$TMP1 “TO BE SHIFTED CHARACTER" 
(1) 007674 004767 007324 JSR PC,ODD8 ;CALC PARITY 
(1) 007700 000241 CLC 
(1) 007702 006167 171572 ROL STMP1 GENERATE START BIT 
(1) 007706 052767 002000 171564 BIS #B1T10,$TMP1 >GENERATE STOP BIT 
(1) zSTMP1 NOW HAS CHARACTER TO BE POKED INTO RECEIVER 
(1) 007714 004767 007216 JSR PC ,RPOKE sSHIFT IN THIS CHAR 
(1) 007720 017701 17177 HOV @RXDBUF RI SACTUAL 
(1) 007724 02 CMP RO.R1 ‘sCOMPARE EXP VS ACT 
(1) 007726 001401 BEO +8 
(1) 007730 104 ERROR 2 ZDATA CHARS SHOULD MATCH 
(1) S THERE SHOULD BE NO PARITY ERROR 
(1) 007732 005204 INC RG [UPGRADE NEXT CHAR 


= a a meee ee aon oe — — 


foe re ee ee eee Se 
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14=DEC=82 09:59 PAGE 61-34 


~82 10:55 


000400 171756 
020000 171744 
000400 171742 


064001 171734 


027400 171722 
000020 171704 
020000 171712 
020000 171704 
171670 
000011 171062 
171434 
007240 
007062 
171636 
000400 171622 
020000 171610 
000400 171606 


INITIALIZE THE COMMON TAGS 


TSTB R4 sLAST CHAR ? 
BNE 1$ 


ce Rere TEST PERFORMS BINARY DATA CHECK ON THE 
3S LENGTH: Fh PLUS PARITY 

sMODE:SY 
3 IPARITY EVEPAR 


PTTTITITITITITITITITI LILI LLL LLL LTT TTT tii 


18125: SCOPE 
BIS #MRESET,@TXCSR ;MASTER RESET 
MOV WSYNEXT,@PARCSR :SET THE MODE 
BIS WMRESET.aTXCSR :MASTER RESET 


3SET MAINT DATA,CLK, BREAK ,@MAINTENANCE MODE 
MOV #MTDATA! CLK! MINT BREAK ,@TXCSR 


PARITY SENSE ,&LOAD Hee oa 


sSET MODE .# OF BITS 
MOV YNEXT EIGHT {EVEPAR!0.aP 
BIS oS YNScl -@RXCSR :S SEARCH CSN 
:POKE CLK TO GET LOGI ¢ into StuckowtzA TION 
BIC #CLK,aTXCSR yal cLk DOWN 
BIS #CLK. *aTXCSR SPOKE CLK UP 
MOV RXDBUF ,R3 set UP ERROR MESSAGE 
CLR R4 ;DATA CHAR 
1$: MOV R4,RO = EXPECTED 
MOV #9. SHIFT 74 OF SHIFTS 
MOV R4,$TMP1 "TO BE SHIFTED CHARACTER" 
JSR PC. EVENS *CALC PARITY 
:STMP1 NOW HAS CHARACTER TO BE POKED INTO RECEIVER 
JSR PC ,RPOKE :SH IFT IN THIS CHAR 
HOV @RXDBUF ,R1 ACTUAL 
CMP RO,R1 :COMPARE EXP VS ACT 
.* 
ERROR 2 ZDATA CHARS SHOULD MATCH 
: THERE SHOULD BE NO PARITY ERROR 
INC RG {UPGRADE NEXT CHA 
TSTB RG SLAST CHAR ? 
BNE 1$ 
za THIS TEST PERFORMS BINARY DATA CHECK ON THE 
¢sLENGTH: EIGHT PLUS PARITY 
*MODE : SYN 
7 3PARITY: ODDPAR 
 Cekeeeeeeekeeeeeeeererereneeeneaeeeeeeneeaeeeeeeeenerereeerere 
18126: SCOPE 


BIS WMRESET,@TXCSR ;MASTER RESET 
MOV #SYNEXT ,@PARCSR ;SET THE MODE 
BIS #MRESET.@TXCSR MASTER RESET 


zSET MAINT DATA,CLK,BREAK ,@MAINTENANCE MODE 


OE EE SD SE ee ae ee ee eee ee ee 


SEQ 0048 


| CNDUS=A MACY11_30(1046) 14=DEC-82 09:59 PAGE 61-35 
CNDUSA.M11 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0049 
/ (2) 010120 012777 064001 171600 MOV #MTDATA!CLK!MINT! BREAK ,a@TXCSR 


3SET on * ¢ OF ae PARITY SENSE ,@LOAD sree or 


| 010126 012777 027000 171566 EXT! EIGHT !ODDPAR!0,aP 
010134 052777 000020 171550 BIS. __#SYNSCH-ORXCSR. 7 Se ET “seancn SYNC 
:POKE CLK TO GET LOGIC [NTO SYNCRONIZATION 
| 010142 042777 020000 171556 BIC #CLK ,aTXCSR DORE. CLK DOWN 
010150 052777 920000 171550 BIS #CLK.aTXCSR :POKE CLK UP 
010156 016703 171534 MOV RXDBUF RS ‘SET UP ERROR MESSAGE 
010162 005004 CLR RG Ac A 
010164 010400 1$: MOV R4,RO sp erecs 
010166 012767 000011 170726 MOV #9. SHIFT # OF SHIFTS 
010174 010467 171300 MOV R4, STHP1 ;"T0 BE SHIFTED CHARACTER" 
010200 004767 007020 JSR PC.ODD8 ;CALC PARIT 
:$TMP1 NOW HAS CHARACTER’ et BE PCKED INTO RECEIVER 
010204 004767 006726 JSR PC ,RPOKE 3SHIFT IN THIS CHAR 
010210 017701 171502 HOV @RXDBUF ,R1 S ACTUAL 
010214 020001 CMP RO,R1 ‘;COMPARE EXP VS ACT 
010216 001401 BEQ v4 
010220 104002 ERROR DATA CHARS SHOULD MATCH 
THERE SHOULD BE NO PARITY ERROR 
010222 005204 INC R4 “UPGRADE NEXT CHAR 
010224 105704 TST8 RG sLAST CHAR ? 
010226 001356 BNE 1$ 
8 z;THIS TEST CHECKS THE STRIP SYNC FUNCTION 
330F THE RECEIVER LOGIC 
os DE: 1SYMOD 
?:LENGTH:F IVE 
{NOTE: RXDONE SHOULD NEVER ASSERT 
aC CHAR: 26 (SYNC 
 eeRRedeekekeeeeeeeeeeeeataeereneneaeeaeneeeneneneneenreeereneete 
010230 000004 18127: SCOPE 


010232 052777 000400 171466 BIS #MRESET,@TXCSR ;MASTER RESET 
010240 012777 000000 171454 MOV #ISYMOD,@PARCSR ;SET THE MODE 
010246 052777 000400 171452 BIS WMRESET,@TXCSR ;MASTER RESET 


zSET MAINT DATA,CLK,BREAK ,@MAINTENANCE MODE 
010254 012777 064001 171444 MOV #MTDATA! CLK! MINT {BREAK ,aTXCSR 


SET MODE ,# OF erts. Pottive tet nit2e, aPARC Sree Wes 
MOV #ISYMOD! FIVE 


er er re ee er es es es es er es ee ee ee ee ee a ee ee ee Bs a Se eee 


RRR RRRARARMRARRRRRRAR RARE RAR RRA AAR AAA A AAA AAA APP POP PROP PS 
od 8 ds SB ANINININININIAINININININD II SS BR U1 a a ad a td st rt dd od td ot ot ot ot tt 0 oS FN = PUI 


010262 012777 000026 171432 
010270 052777 000020 171414 BIS ay pea ETS Satie 
010276 042777 020000 171422 are IC ac CLK TX XCSR :POKE CLK DOWN 
ann. Sharer Syevee., Wears :POKE cue to GET *Tbeie Mitte SvNCRONI ZATION 
010312 042777 920000 171406 BIC #CLK ,aTXCSR sPOKE CLK DOWN 
010320 052777 020000 171400 BIS #CLk aTXCSR [POKE CLK UP 
010526 052777 000400 17135 BIS r TPSYN @RXCSR iSET STRIP SYNC 

103 012767 000003 17056 MOV t N # OF SYNC CHARS 
010342 012767 000154 171130 1$: MOV #154, $tHPt {CHA R 10 BE SHIFTED 
010350 012767 900007 170544 MOV #7, SHIFT # OF 
010356 004767 554 JSR PC RPOKE SHIFT in Tals CHAR 


“CNDUS-A MACY11 De 14=DEC-82 09:59 PAGE 61-36 


/CNDUSA.M11 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0050 
| ©) 010362 105777 171324 TSTB @RXCSR sRXDONE ? 
10 100001 BPL 
010370 104004 ERROR i" sRXDONE SHOULD NOT BE ASSERTED 


010372 005367 170526 eee a NT ;# OF SYNC CHARS 


ss THIS TEST CHECKS THE STRIP SYNC FUNCTION 
230F E+1SYROD VER LOGIC 


SILEN GTH:SIX 
2sNOTE: RXDONE 2 eed NEVER ASSERT 
eC CHAR: 26 (SYNC 


WITITITITITIL LILI LILILLL LILI LiL iTii ti tiiiiT iii titi 


010400 000004 18130: SCOPE 


010402 052777 000400 171316 BIS #MRESET,@TXCSR ;MASTER RESET 
010410 012777 000000 171304 MOV #ISYMOD,@PARCSR ;SET THE MODE 
010416 052777 000400 171302 BIS WMRESET,@TXCSR MASTER RESET 


SET MAINT BATA E « BREAK, SMAINTENANCE MODE 


010424 012777 064001 171274 MOV #MTDATA! CLK! MINT !BREAK,aTXCSR 
;SET MODE .# OF BITS.PARITY SENSE LOAD SYNC REG 
010432 012777 002026 171262 MOV #ISYMOD! SIX! NOPAR AR {26.8 ARCSR 
010440 052777 000020 171244 BIS #SYNSCH, ARXCSR NC SEARCH 
10446 042777 020000 17125 bre a at Se Hci.. 
obese 052777 eid 13432 BIS #CLK aTXCSR CLK UP 
sPOKE CLK TO GET tocie. INTO SYNCRONIZATION 
010462 042777 020000 171236 BIC #CLk LK .STXCSR :POKE CLK DOWN 
010470 052777 020000 171230 BIS #CLK.aTXCSR :POKE CLK UP 
010476 052777 000400 171206 BIS #STPSYN, @RXCSR SET STRIP SYNC 
010504 012767 000003 170412 MOV #3, COUN # OF SYNC CHARS 
010512 012767 000254 170760 1$: MOV #254 ,$TMP1 :CHAR 10 BE SHIFTED 
010520 012767 000010 170374 MOV #8. SHIFT :# OF 
010526 004767 006404 JSR PC ,RPOKE * SHIFT iN Tas CHAR 
010532 105777 171154 TST8 ARKCSR ZRXDONE ? 
010536 100001 BPL 
010540 104004 ERROR :RXDONE SHOULD NOT BE ASSERTED 
010542 005367 170356 DEC COUNT :# OF SYNC CHARS 
010546 001361 . BNE i$ 
8 z:THIS TEST CHECKS THE STRIP SYNC FUNCTION 
330F THE RECEIVER L 
DE : ISYMOD 
3 :LENGTH : SEVEN 
SINOTE: RXDONE SHOULD NEVER ASSERT 
33CHAR: 26 (SYNC) 
eeekeeeeeeeeeeeeeeeeeetereeeeeeeeeeneeeneaeeneareeeeeeeeeeeeere 

010550 000004 18131: SCOPE 


010552 052777 000400 171146 BIS WMRESET,@TXCSR ;MASTER RESET 
010560 012777 000000 171134 MOV #ISYMOD,@PARCSR ;SET THE MODE 
000400 171132 BIS #MRESET,@TXCSR ;MASTER RESET 


FRR RARRRRRARRAR PRR ARARRARARARARA RRR AA AAA AAA AAA EAE POPP PPP APP PPP 
WATS BR rt rk rk rt td dd kd tk td ts ANUP PUP NU PININININIWAIW SS BU et ot tt J oo 
NS I 
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“CNDUSA.M11-- 30-OCT-82 10:55 INITIALIZE THE COMMON TAGS SEQ 0051 
| 
Ym 
, @ ‘ ySET MAINT DATA, CLK BREAK. SMAINTENANCE MODE 
(3) 010574 012777 064001 171124 MOV #MTDATA! CLK! MINT !BREAK,@TXCSR 
| 
| @& SET MODE ft UF BITS,PARITY SENSE,&LOAD SYNC REG 
| (2) 010602 012777 004026 171112 #1SVHOD ! SEVEN NOPAR? 26. a@PARCSR 
(2) 010610 052777 000020 171074 ars #SYNSCH aRXCSR YNC SEARCH 
(3) -POKE CLK TO GET RECE ve tyTO SYNCROIZATION.... 
(2) 010616 042777 020000 171102 BIC #CLK .TACSR ;POKE CLK DOWN 
(2) 010624 052777 020000 171074 BIS #CLK aTXCSR POKE CLK UP 
(2) :POKE CLK TO GET tocie INTO syuchoNa FAS TON 
(2) 010632 042777 020000 171066 BIC #CLK .ATKCSR :POKE cLK DOWN 
(2) 010640 052777 020000 171060 BIS CSR SPOKE CLK UP 
(1) 010646 052777 000400 171036 BIS aSTPstN, @RXCSR SET STRIP SYNC 
(1) 010654 012767 000003 170242 MOV :# OF SYNC CHA 
(1) 010662 012767 000454 170610 1$: MOV aaSe STR CHAR 10 BE SHIFTED 
(1) 010670 012767 000011 170224 MOV * # OF 
(1) 010676 004767 006234 JSR PC.R SOE 3 SHIFT iN THIS CHAR 
(1) 010702 105777 171004 TSTB @RXCSR ;RXDONE ? 
(1) 010706 100001 BPL +4 
(1) 010710 104004 ERROR 4% :RXDONE SHOULD NOT BE ASSERTED 
(1) 010712 005367 170206 DEC COUNT :# OF SYNC CHARS 
(1) 910716 001361 BNE 1$ 
8177 zs THIS TEST CHECKS THE STRIP SYNC FUNCTION - 
(1) 350F THE RECEIVER LOGIC 
(1) 3: : 1SYMOD 
(1) ; LENGTH :EIGHT 
(1) [NOTE: RXDONE SHOULD NEVER ASSERT 
(1) 33 CHAR: 26 (SYNC) 
(5) 23 TTT TT TUTTLE TT TTT TTT TUT TTT TTT TTT TUTTE TTT TTT TTT TT TTT TTT TTT 
(4) 010720 000004 TST32: SCOPE 
(3) 010722 052777 000400 170776 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 010730 012777 000000 170764 MOV #ISYMOD.@PARCSR :SET THE MODE 
(3) 010736 052777 000400 170762 BIS WMRESET.@TXCSR :MASTER RESET 
(2) ;SET MAINT DATA,CLK BREAK MAINTENANCE MODE 
(2) 010744 012777 064001 170754 MOV #MTDATA! CLK! MINT !BREAK,aTXCSR 
(2) zSET MODE ,# OF BITS. PARITY SENSE,8LOAD SYNC REG 
(2) 010752 012777 006026 170742 MoV #ISYMOD! EIGHT 'NOPAR! 26, aPARCSR 
(2) 010760 052777 000020 170724 BIS #SYNSCH,@RXCSR ;SET SYNC SEARCH 
(2) sPOKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
(2) 010766 042777 020000 170732 BIC #cLk Kath KCSR :POKE cL DOWN 
(2) 010774 052777 020000 170724 BIS *POKE CLK UP 
(2) :POKE CLK TO GET mre e ats SYNCRONIZATION 
(2) 011002 042777 020000 170716 BIC clk ,@TXCSR :POKE CLK DOWN 
(2) 011010 052777 020000 170710 BIS #CLK aTXCSR SPOKE CLK UP 
(1) 011016 056777 000490 170666 BIS astPstn @RXCSR :SET STRIP SYNC 
(1) 011024 012767 000003 170072 MOV OUN 4 OF SYNC CHARS 
(1) 011032 012767 001054 170440 1$: MOV FiOS STMP1 [CHAR TO BE SHIFTED 
(1) 011040 012767 000012 170054 MOV #10, SHIFT # OF 
(1) 011046 004767 0060 JSR PC ,RPOKE SHIFT In Tals CHAR 
(1) 011052 105777 1706 TSTB © ARXCSR ~SRXDONE > 





parece 
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| €1) 011056 100001 BPL +4 
' 1) 011060 104004 ERROR 4 :RXDONE SHOULD NOT BE ASSERTED 
(1) 011062 005367 170036 DEC COUNT :# OF SYNC CHARS 
(1) 011066 001361 BNE 1$ 
i 
| 8178 ssTHIS TEST CHECKS THE STRIP SYNC FUNCTION 
(1) F THE RECEIVER LOGIC 
(1) at : SYNEXT 
(1) z:LENGT H:FIVE 
(1) NOTE: RXDONE SHOULD NEVER ASSERT 
(1) 33¢ [CHAR: 26 (SYNC 
(5) ee PT TTITITITILILILI LLL LL LLL LILL TELL LTE E ETE eel 
(4) 011070 000004 TS7352: SCOPE 
(3) 011072 052777 000400 170626 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 011100 012777 020000 170614 MOV #SYNEXT,@PARCSR :SET THE MODE 
(3) 011106 052777 000400 170612 BIS WMRESET.a@TXCSR :MASTER RESET 
(2) :SET MAINT DATA, CLK,BREAK MAINTENANCE MODE 
(2) 011114 012777 064001 170604 MOV #MTDATA! CLK! MINT !BREAK,@TXCSR 
(2) :SET MODE | f OF ats PARITY SENSE, LOAD SYNC REG 
(2) 011122 012777 020026 170572 SYNEXT ! F IVE !NOPAR! 26, a@PARCSR 
(1) 011130 052777 000020 170554 ars FSYNSCH. SRXESR -SET SEARCH SYNC 
(2) :POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(2) 011136 042777 020000 170562 BIC #CLK OTKCSR DORE. LK DOWN 
(2) 011144 052777 020000 170554 BIS #CLK,aTXCSR :POKE CLK UP 
(1) 011152 052777 000400 170532 BIS ATEN, @RXCSR :SET STRIP SYNC 
(1) 011160 012767 000003 167736 MOV #3, COUN ‘# OF SYNC CHARS 
(1) 011166 012767 000026 170304 1$: MOV #26, StMP1 ‘CHAR TO BE SHIFTED 
(1) 011174 012767 000005 167720 MOV #5, SHIFT :# OF SH 
(1) 011202 004767 005730 JSR PC -RPOKE * SHIFT IN, Tals CHAR 
(1) 011206 105777 1705 TSTB ARKCSR sRXDONE ? 
(1) 011212 100001 PL 
(1) 011214 106004 ERROR i” :RXDONE SHOULD NOT BE ASSERTED 
(1) 011216 005367 167702 DEC COUNT :# OF SYNC CHARS 
1) 011222 001361 BNE 1$ 
8179 z;THIS TEST CHECKS THE STRIP SYNC FUNCTION 
(1) 330F THE RECEIVER LOGIC 
(1) 3 MODE : SYNEXT 
(1) LEN Bris SIX 
(1) : NOTE: axOONE SHOULD NEVER ASSERT 
(1) 33CHAR: 26 (SYNC) 
(5) ee RReeeeeeekeeeeeeeeeeeeeeeeteeeadeeeeaeeeeeanaeeeeaeaeeeeeeere 
(4) 011224 000004 1$134: SCOPE 
(3) 011226 052777 000400 170472 BIS #MRESET,@TXCSR ;MASTER RESET 
(2) 011234 012777 020000 170460 MOV WSYNEXT,@PARCSR :SET THE MODE 
(3) 011242 052777 000400 170456 BIS WMRESET.a@TXCSR :MASTER RESET 
(2) SET MAINT DATA,CLK,BREAK MAINTENANCE MODE 
(3) 011250 012777 064001 170450 MOV #MTOATA: CLK! MINT !BREAK,@TXCSR 
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(2) :SET MODE ,# OF BITS PARITY SENSE ,SLOAD SYN SYNC REG 
2) 011256 012777 022026 170436 MOV YNEXT! SIX!NOPAR 
1) 011264 052777 000020 170420 BIS Pe YNSC HaRXCSR ;S ET “SEARCH SYNC 
2) :POKE CLK TO GET LOGIC INTO SyNchON TION 
2) 011272 042777 020000 170426 BIC #CLK,aTXCSR nOOKE ATK DOWN 
2) 011300 052777 020000 170420 BIS #CLK aTXCSR SPOKE CLK UP 
1) 011306 052777 000400 170376 BIS aSTPEN, ARXCSR SET STRIP SYNC 
1) 011314 012767 000003 167602 MOV COUN ‘g OF SYNC CHARS 
1) 011322 012767 000026 170150 1$: MOV #36 STMP1 CHA R 10 BE SHIFTED 
1) 011330 012767 000006 167564 MOV #6,SHIF °# OF 
1) 011336 004767 005574 JSR PC -RPOKE * SHIFT iN, TIS CHAR 
1) 011342 105777 170344 TSTB @RXCSR ;RXDONE ? 
1) 011346 100001 P +4 
1) 011350 104004 ERROR 4% ;RXDONE SHOULD NOT BE ASSERTED 
1) 011352 005367 167546 DEC COUNT :# OF SYNC CHARS 
13 011356 001361 BNE 1$ 

8180 z;THIS TEST CHECKS THE STRIP SYNC FUNCTION 
1 330F THE RECEI VER LOGIC 
1 + :MODE : SYNEXT 
1 ts i : SEVEN 
1 SNOTE: RXDONE SHOULD NEVER ASSERT 


se 3CHAR: 26 (SYNC 


23 TTTITITITTTITILITI TILT LI LLL LILLIE Litt T tee 


011360 000004 TST35: SCOPE 

011362 052777 000400 170336 BIS WMRESET,@TXCSR  ;MASTER RESET 
011370 012777 020000 170324 MOV #SYNEXT,@PARCSR ;SET THE MODE 
011376 052777 000400 170322 BIS WMRESET.@TXCSR MASTER RESET 


SET MAINT DATA, CLK, BREAK, &MAINTENANCE MODE 


011404 012777 064001 170314 MOV #MTDATA! CLK! MINT !BREAK, @TXCSR 
ySET MODE ,# OF BITS,PARITY SENSE,SLOAD SYNC REG 
011412 012777 024026 170302 MOV as SYNEXT! SEVEN NOPARi 26 @PARCSR 
011420 052777 000020 170264 BIS SYNSCH.@RXCSR T SEA RCH SYNC 
:POKE CLK TO GET” Posie inTO StwchoutzA ION 
011426 042777 020000 170272 BIC #CLK,aTXCSR 2 POKE Mie DOWN 
011434 052777 020000 170264 BIS #CLK aTXCSR SPOKE CLK UP 
011442 052777 000400 170242 BIS WSTPSYN,@RXCSR :SET STRIP SYNC 
011450 012767 000003 167446 MOV #3,COU :# OF SYNC CHARS 
011456 012767 000026 170014 1$: MOV #26, $TMP1 [CHAR TO BE SHIFTED 
011464 012767 000007 167430 MOV 47 SH IFT :# OF SHIFTS 
011472 004767 005440 JSR PC. RPOKE ;SHIFT IN THIS CHAR 
011476 105777 170210 TSTB ARKCSR sRXDONE ? 
011502 100001 BPL 
011504 104004 ERROR & :RXDONE SHOULD NOT BE ASSERTED 
011506 005367 167412 DEC COUNT :# OF SYNC CHARS 
011512 001361 BNE 1$ 
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ior TEST CHECKS THE STRIP SYNC FUNCTION 
Pon ty NEXT VER LOGIC 


‘TLENGTH :EIGHT 
ZENOTE: RXDONE SHOULD NEVER ASSERT 
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000400 
020000 
000400 


064001 


026026 
000020 


020000 


170054 


167256 


020000 
020000 


020000 
020000 
000400 


170046 
170034 
170032 


INITIALIZE THE COMMON TAGS 
23 CHAR: 26 (SYNC) 


PTTTITITITITI LILI LLL LL TILL LILLLLiLiLi LTT titi 


18136: SCOPE 


BIS WMRESET,@TXCSR ;MASTER RESET 
MOV #SYNEXT,@PARCSR ;SET THE MODE 
BIS MMRESET,@TXCSR ;MASTER RESET 


SET MAINT DATA, CLK BREAK, SMAINTENANCE MODE 
MOV #MTOATA! CLK!MINT! BREAK ,@TXCSR 


:SET MODE .# OF BITS,PARITY SENSE, LOAD SYNC REG 
MOV #SYNEXT!EIGHT !NOPAR!26,@PARCSR 
BIS WSYNSCH,A@RXCSR ;SET SEARCH SYNC 
sPOKE CLK TO GET LOGIC INTO SYNCRONIZATION 
B #CLK,aTXCSR zPOKE CLK DOWN 


#CLK,aTXCSR sPOKE CLK UP 
BIS #STPSYN,@RXCSR sSET STRIP SYNC 
MOV #3, COUNT 


CHARS 
1$: MOV #26,$TMP1 ; CHAR TO BE < SHIFTED 
MOV #8. SHIFT # OF SH 
JSR PC .RPOKE {SHIFT In, THIS CHAR 
TST ARKCSR ;RXDONE ? 
.+ 
ERROR 4 ;RXDONE SHOULD NOT BE ASSERTED 


DEC COUNT ;# OF SYNC CHARS 
BNE 1$ 


3sTHIS TEST CHECKS THE STRIP SYNC FUNCTION 
230F E:sYNINT LOGIC 


3 LENGTH FIVE 
o3N NOTE: RXDONE poe NEVER ASSERT 
si CHAR: 26 (SYNC 


FITTTITITITITITI LITT LLL LILLE LLL LT LTE 


18137: SCOPE 


BIS #MRESET,@TXCSR ;MASTER RESET 
MOV #SYNINT ,@PARCSR ;SET THE MODE 
BIS #MRESET,@TXCSR ;MASTER RESET 


3SET MAINT DATA, CLK BREAK, GMAINTENANCE MODE 
MOV #MTDATA! CLK! MINT !BREAK ,aTXCSR 


zSET MODE .# OF BITS PARITY SENSE, @LOAD SYNC ares 
MOV YNINT! FIVE 'NOPAR! 26, a@PAR 
BIS ay NSCH,@RXCSR ;SET SYNC REPAR 
-POKE CLK TO GET RECEI Fiver’ INTO SYNCROT SATION... 
BIC #cLk atk XCSR 3 POKE CLK DOWN 
BIS #CLK.aTXCSR KE CLK UP 
:POKE CLK TO GET thee. INTO SYNCRONIZATION 
BIC #CLK,aTXCSR :POKE CLK DOWN 
BIS #CLK,aTXCSR SPOKE CLK UP 
BIS #STPSYN,ARXCSR :SET STRIP SYNC 


SEQ 0054 
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MOV #3, COUNT 3# OF SYNC CHARS 


1$: MOV #26, $TMP1 SCHAR TO BE SHIFTED 
MOV #5, SHIFT *# OF SH 
JSR PC ’RPOKE ‘SHIFT IN THIS CHAR 
srs ARKCSR sRXDONE ? 
e* 
ERROR 4% ;RXDONE SHOULD NOT BE ASSERTED 
DEC COUNT :# OF SYNC CHARS 


ssTHIS TEST CHECKS THE STRIP SYNC FUNCTION 
330F THE RECEIVER LOGIC 
; MODE: SYNINT 


:LENGTH:SIX 
TINOTE: RXDONE SHOULD NEVER ASSERT 
TECHAR: 26 (SYNC) 


ee 
SARA AERE EAA E EEE EERE EEEEEEEEEREEEERRREEREREEEEEEEEE 


TST40: SCOPE 


BIS #MRESET,@TXCSR ;MASTER RESET 
MOV #SYNINT,QPARCSR ;SET THE MODE 
BIS #MRESET,@TXCSR ;MASTER RESET 


:SET MAINT DATA,CLK,BREAK ,@MAINTENANCE MODE 
MOV #MTDATA! CLK! MINT !BREAK ,@TXCSR 


zSET MODE .# OF BITS,PARITY SENSE SL OAD SYNC REG 
MoV #SYNINT!SIX!NOPAR! 26, @PARCSR 
BIS WSYNSCH,ARXCSR ;SET SYNC SEARCH 
sPOKE CLK TO GET RECEIVER INTO SYNCROIZATION.... 
BIC #CLK,aTXCSR :POKE CLK DOWN 
BIS #CLK,aTXCSR :POKE CLK UP 
:POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
BIC #CLK,a@TXCSR :POKE CLK DOWN 
BIS #CLK.aTXCSR sPOKE CLK UP 
BIS #STPSYN. ORXCSR *SET STRIP SYNC 


MOV P 3# OF SYNC CHARS 

1$: MOV #26,$TMP1 CHAR TO BE SHIFTED 
MOV #6,SHIFT 3# OF SHIF 
JSR PC ,RPOKE SHIFT IN THIS CHAR 
jd ee sRXDONE ? 

+ 

ERROR 4 zRXDONE SHOULD NOT BE ASSERTED 
pet covet 3# OF SYNC CHARS 


zzTHIS TEST CHECKS THE STRIP SYNC FUNCTION 
330F THE RECEIVER LOGIC 

32 :SYNINT 

: LENGTH: SEVEN 

s3NOTE: RXDONE SHOULD NEVER ASSERT 

s3CHAR: 26 (SYNC) 


ee 
SEAR EREAAEAEAAAEAAAASTERERETEEEEAERAEAERAAEAERERAREEEREEEEREEEE 


15141: SCOPE 


SEQ 0055 
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(4) 
(3) 012172 052777 000400 167526 BIS WMRESET,@TXCSR ;MASTER RESET 
(2) 012200 012777 030000 167514 MOV #SYNINT,@PARCSR :SET THE MODE 
(3) 012206 052777 000400 167512 BIS WMRESET.aTXCSR :MASTER RESET 
(2) ySET MAINT DATA,CLK,BREAK,@MAINTENANCE MODE 
(3) 012214 012777 064001 167504 MOV #MTDATA! CLK !MINT !BREAK, @TXCSR 
(2) :SET MODE ,# OF BITS,PARITY SENSE -SLOAD SYNC REG 
(2) 012222 012777 034026 167472 MOV #SYNINT ! SEVEN! Ri26. @PARCSR 
(2) 012230 052777 000020 167454 BIS aS YNSC WBRKESR T SYNC SEAR 
(2) sPOKE CLK TO GET RECE ers “uTo SYNGROIZATION. 
(2) 012236 042777 020000 167462 BIC #CLK ATXCSR :POKE CLK DOWN 
(2) 012244 052777 020000 167454 BIS #CLK,aTXCSR *POK E CLK 
(2) :POKE CLK TO GET LOGIC INTO SYNCRONIZATION 
(2) 012252 042777 020000 167446 BIC #CLK,aTXCSR sPOKE CLK DOWN 
(2) 012260 052777 020000 167440 BIS #CLk “aTXCsR sPOKE CLK UP 
(1) 012266 052777 000400 167416 BIS ASTON, @RXCSR ;SET STRIP be 
(1) 012274 012767 000003 166622 MOV OUNT 8 OF SYNC CHA 
(1) 012302 012767 000026 167170 1$: MOV a2, ita [CHA R TO 33 SHIFTED 
(1) 012310 012767 000007 166604 MOV #7 “SH IFT :# OF SHIFT 
(1) 012316 004767 004614 JSR PC,RPOKE gSHIFT IN THIS CHAR 
(1) 012322 105777 167364 TSTB @RXCSR ;RXDONE ? 
(1) 012326 100001 BPL +4 
(1) 012330 104004 ERROR 4 sRXDONE SHOULD NOT BE ASSERTED 
(1) 012332 005367 166566 DEC COUNT ft OF SYNC CHARS 
(1) 012336 001361 BNE i$ 
8185 
(2) Hi OF PASS 
(2) YPE NAME OF et 
(2) UPDATE PASS COUNT 
(2) sCHECK FOR EXIT TO ACT-11 
ts) sRESTART TEST 
(2) 012340 000004 .EOP: SCOPE 
(2) 012342 004767 000340 JSR PC,CKSWR 
(2) 012346 104401 TYPE ; TYPE NAME OF TEST 
(2) 012350 015476 MEPASS 
(2) 012352 104413 012604 CONVRT ,OUTCRY 
(2) 012356 104401 015315 TYPE ‘DEVICE 
(2) 012362 105767 166564 TSTB MULTD sARE YOU =—— MULTIPLE DEVICES ? 
(2) 012366 001511 BEQ ccc :NO, JUMP AROUND 
(2) 012370 005767 166572 TST ACTREG :ARE ANY DEVICES ACTIVE ? 
(2) 012374 001007 BNE RUNIT  :YES 
(2) 012376 104401 015327 TYPE ,MCOW :NO 
(2) 012402 016700 166560 MOV ACTREG,RO sDISPLAY ACTREG 
(2) 012406 000000 HALT 3s SELECT SOME THING TO RUN @ ar TREGs 
(2) sSELECT SWITCHES & HIT CONTINUE (PUT SwO00 “a 
(2) 012410 000167 167536 JMP eSTART ;START OVER AGAIN......YOU DESELECTED EVERYTHING 
(2) 012414 062767 000010 166532 RUNIT: ADD #10,8 BASEADD sNEXT BLOCK (ADDR ESSES) 
(2) 012422 062767 000010 166532 ZERO: ADD #10; BASEIV *NEXT BLOCK (VECTORS) 
(2) 012430 000241 CLC 
(2) 012432 006167 166532 ROL ROTADD ;UP DATE ROTATING POINTER 
(2) 012436 103410 BCS 2s 31S IT THE LAST DEVICE 
(2) [TO BE TESTED IN THIS PASS ? 
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(2) 012440 036767 166524 166520 BIT ROTADD ACTREG sTEST THIS DEVICE FOR ACTIVE STATUS 
(2) 012646 001762 BEQ RUN NIT  ;IF NOT ACTIVE, TRY NEXT ADDR ESS 
(2) 012450 004767 000034 JSR C REPLAY sCALCULATE NEW PARAMETERS 
(2) 012454 000167 0002190 yMP RESTRY YES IT Was “ACTIVE TEST THIS DEVICE 
(2) 012460 012767 000001 166502 2$: MOV #1, ROTADD ET UP ROTATING 
(2) TER aH “NEXT MULTIPLE PASS 
(2) 012466 016767 166464 166460 MOV KEEPADD, BASEADD ;RESTORE BASE ADDRESS 
(2) 012474 016767 166464 166460 MOV KEEPIV,BASEIV :RESTORE BASE INTERRUPT VECTORS 
(2) 012502 004767 000002 JSR PC CAREPLAY *CALC NEW PARAMETERS 
(2) 012506 000441 BR cce UMP AROUND REPLAY 
(2) 012510 016767 166440 004416 REPLAY: MOV BASEADD, BoBASE 3SET UP FOR NEW ADDRESSES 
(2) 012516 004767 004260 JSR PC ,DUADDR [CREATE NEW ADDRESSES 
(2) 012522 016767 166434 167206 MOV BASELV. DURIV :CREATE DURIV 
(2) 012530 062767 000002 166424 ADD BASE IV 
(2) 012536 016767 166420 167174 MOV Base lV. DURIS CREATE DURIS 
(2) 012544 767 000002 166410 ADD 
(2) 012552 016767 166404 167162 MOV BASEIV. DUTIV. ; CREATE DUTIV 
(2) 012560 062767 000002 166374 ADD ASELV 
(2) 012566 016767 166370 167150 MOV BASE IV. DUTIS  ;CREATE DUTIS 
(2) 012574 016767 167136 166360 MOV DURIV,BASEIV RESTORE 
3) 012602 000207 RTS PC 
(2) 012604 000001 OUTCRY: 1 
(2) 012606 006 002 .BYTE 6,2 
(2) 012610 001712 RXCSR 
(2) 012612 CCC: 

(2) 012612 005067 166564 CLR STSTNM sCLEAR TEST NUMBER 
(2) 012616 005067 166574 CLR SERRPC *CLEAR LAST ERROR PC 
(2) 012622 005067 1665 CLR SERFLG [CLEAR E L 

(2) 012626 005267 166260 INC PASCNT [UPDATE PASS COUNT 
(2) 012632 016767 166254 166242 MOV PASCNT,LIGHTS :DISPLAY PASS COUNT 
(2) 012640 016767 166246 166666 MOV PASCNT.$PASS PASS COUNT TO A 

(2) 012646 013701 000042 MOV av42,Ri *CHECK FOR acr=t1 Tor DoP 
(2) 012652 001406 BEQ RESTRT :IF NO CONTINUE TESTING 

(2) 012654 000005 RESET 

(2) 012656 000005 RESET 

(2) 012660 004711 SENDAD: JSR PC, (R1) 

(2) 012662 000240 NOP 

(2) 012 000240 NOP 

(2) 012666 000240 NOP 

(2) 012670 RESTRT: 

(2) 012670 012767 603376 166510 MOV #TST1+2, ,SLPADR ;LOAD LAST ADDR 

(2) 012676 004767 000004 JSR PC,CKSWR 

(2) 012702 000167 170402 MP BEGIN 

(2) SCHECK SWITCH REGISTER ROUTINE. 

(2) [CHECKS TO ALLOW FOR <*G> TO ALLOW 

@) [THE CHANGING OF LOCATION 176 

(2) 012706 005737 000042 CKSWR: TST avs2 

(2) 012712 001040 BNE OUT 

(2) 012714 022767 000176 166516 CMP #SWREG, SWR ;SOFTWARE SWR PRESENT? 

(2) 012722 001034 BNE OUT *NO="LEAV 

(2) 012724 105777 166514 TSTB astKs + CHECK TTY READY 

(2) 012730 100031 BPL OUT *NO=-LEAVE 
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166510 pope 
177600 00041 
000007 000406 
016103 


013022 
016115 


016124 


901 
013022 


002 


177646 
001000 


166034 


166372 


166375 


000002 


000001 166442 


G 


MOV a$TKB, .MSG GET CHARACTER 
BIC #177600, .MSG ;STRIP 
CMPBs«#7, .MSG 1S IT 2565 ? 
BNE ut : 

TYPE ,MCNTG 

CNTLU: COM SARDSW 
TYPE  ,MMSWR 
CONVRT 
SWREGL 
INSTR, MMNE W 
177777 
SWREG 

.BYTE 0,1 

OUT: CLR aaRDSW 
RTS PC 

RDSW: .WORD 0 

SWREGL: 1 
.BYTE 6,2 
SWREG 
5 
:CHECK FOR FREEZE ON CURRENT DATA 

.SCOP1: JSR PC,CKSWR 
BIT #SW09,aSwR 
BEQ 
MOV LOCK, (SP) 


1$: g 
-S8TTL TYPE ROUTINE 


PTI titi iii iii irri rit iii iii tititiiiiiiiri ys, 
+ SROUT INE TO TYPE ASCIZ ig MESSAGE MUST TERMINATE WITH A 0 ovie 
zsTHE ROUTINE . wit AN NU 


:*NOTE2: 
:*NOTES: 
ot 


*CAL 
1) + USING A TRAP INSTRUCTION 
TYPE  ,MESADR 


+ 0R 


a TYPE 

7* MESADR 

3* 

$TYPE: TSTB 
BPL 
HALT 
BR 

1$ MOV 
MOV 
CMPB 
BNE 


INE FEED. 
USED AS THE FILLER CHARACTER. 
FILLER CHARACTERS REQUIRED. 


A E 
SFILLC CONTAINS THE CHARACTER TO FILL AFTER. 


S$TPFLG 
1$ 


3$ 

RO,-(SP) 
a2(SP),RO 
#APTENV, SENV 
62$ 


zzMESADR IS FIRST ADDRESS OF AN ASCIZ STRING 


:i1S THERE A TERMINAL? 
i SHALT HERE IF NO TERMINAL 


+: SAVE RO 
33GET ADDRESS OF ASCIZ STRING 
“RUNNING IN APT M 


3:NO,GO CHECK FOR APT CONSOLE 


SEQ 0058 


CNDUS=A_MACY11_30(1046) 
30-OCT-82 10:55 


CNDUSA.M11 


~ 
Nm 
~ 


132767 


rmnwo—— 
Sau 

- 

ao 


oO 
_ 
UM = MONMNUI— 1 |S 
NOOO 


R 
ous~ 


NUNNNOWV 
SUINAUON 


LENE te 


R SaNVKKRSKANSARSLSSESSSRVSEE 


ab —s — 
axsscs 
on 
QAOANUNW—O 


A RARRRARAR RAR RA RAR RRA AR RA AAR AAA AA RAR RAAF AAA AAA AAA RRA AR AAAA 
ROPQNINININININYININININDNYNINININDNINYDINYININIPYNINININNPINYNYNINPUNYAIPININPY NNN Pofy fPenonoponononornonynny 
Gh 0 89 8 8 8 9 8 SS SS 
Sooooooeoo SCOCoOoCoOoCOoO fwloleoleolo mm eleololeleleleleleleloleoleleloleololelololololololol[o) 
Nm 
Ww oo 
So 
Sssss So 
Ss o — 
Nw 
oe. 
No 
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000100 


000004 
164660 


000040 


000002 
000011 
000200 


000130 


000056 
166240 
166230 
000001 


000032 
000072 


000040 
000014 
000007 


166154 
000002 
000015 
000014 
000012 


166433 


166411 


000052 


166146 
000002 


000002 


We ae ~~ ee se. oC - ies te 


TYPE ROUTINE 


BITB 
BEQ 
MOV RO,61$ 
JSR PC{SATY3 
$ WORD 
62$ B1T8 #APTCSUP, SENVM 
2$ MOVB (RO) +, =(SP) 
BNE 4$ 
TST (SP)+ 
60$: MOV (SP)+,RO 
3$: ADD #2, (SP) 
4$: CMPB ss HHT, (SP) 
BEQ 
CMPB ss # CRLF, (SP) 
BNE 
TST (SP)+ 
TYPE 
SCRLF 
CLRB  $CHARCNT 
BR 2$ 
5$: JSR PC, STYPEC 
6$: CMP SFILLC,(SP)+ 
MOV $NULL,-(SP) 
7$: DECB =: 1( SP) 
BLT 6$ 
JSR PC ,$TYPEC 
DECB © $CHARCNT 
R 7$ 
;HORIZONTAL TAB PROCESSOR 
8$: MOVB = #"-_, (SP) 
9$: JSR PC, $TYPEC 
BITB #7. $CHARCNT 
BNE 
TST (SP)+ 
BR 2$ 
$TYPEC: TSTB a$TPS 
BPL STYPEC 
MOVB 2(SP),a$TPB 
CMPB Ss # CR, 2( SP) 
BNE 1 
CLRB = $CHARCNT 
BR STYPEX 
1$: CMPB Ss LF, 2(SP) 
BEOQ $TYPEX 
I (PC)+ 


NCB 
SCHARCNT: .WORD 


STYPEX: RTS 


—eees 3sSPOOL MESSAGE TO APT 


0 
PC 


33N HECK FOR CONSOLE 
S:SETUP MESSAGE ADDRESS FOR APT 
MESSAGE TO APT 


373BR IF_IT ISN*T THE TERMINATO 
s31F time POP IT OFF THE STACK 


2 sRESTORE 
szADJUST RETURN PC 


ETURN 
3;BRANCH IF <HT> 
3;BRANCH IF NOT <CRLF> 


3;POP <CR><LF> EQUIV 
33TYPE A CR AND LF 


3sCLEAR CHARACTER COUNT 
3;GET NEXT CHARACTER 


ee] I 
331F NO GO GET NEXT CHAR. 
32GET # OF FILLER CHARS. NEEDED 
33AND THE NULL CHAR. 
3;DOES A NULL NEED TO BE TYPED? 
3sBR IF NO=--GO POP THE NULL OFF OF STACK 
3:GO0 TYPE A NULL 
3:D0 NOT COUNT AS A COUNT 
LOOP 


3;REPLACE TAB WITH SPACE 
73 TYPE A SPACE 

3:BRANCH IF NOT AT 

3;TAB STOP 

:3POP SPACE OFF STACK 

33;GET NEXT CHARACTER 

s:WAIT UNTIL PRINTER IS READY 


3;LOAD CHAR TO BE TYPED INTO DATA REG. 


3318 CHARACTER A CARRIAGE RETURN? 


; BRAN 

iEYES==CLEAR CHARACTER COUNT 

[1S CHARACTER A LINE FEED? 
CH IF YES 


7;COUNT THE CHARACTER 
z:CHARACTER COUNT STORAGE 


SEQ 0059 


CNDUS=A MACY11_30(1046) 14=DEC=82 09:59 PAGE 61-46 


‘CNDUSA.M11 30-OCT-82 10:55 TYPE ROUTINE SEQ 0060 
(2) 
sASCII STRING INPUT ROUTINE 
013340 017667 000000 000014 .INSTR: MOV = a(SP),.MSG ;PICK UP MESSAGE 
013346 062716 000002 ADD =—s_- #2, (SP) JUMP AROUND MESSAGE FOR RTI 
013352 105767 166170 TSTB SEN APT CONTROL 
013356 001036 BNE _—INSTR2 YES NO TYPE 
013360 104401 INST1: TYPE 
013362 000000 “MSG: 0 
013364 012704 016136 MOV —- #INBUF ,R4 GET STARTING LOC OF INBUF 
013370 012703 000007 MOV = #7, :MAX # OF CHARS 
013374 105777 166044 1$: TSTB. «= a$TKS =; TTY FLAG 
013400 100375 BPL 
013402 117714 166040 MOVB  @$TKB, (R4) ; TAKE CHAR 
013406 142714 000200 BICB #200, (R4) STRIP 
013412 121427 000025 CMPB (RG) #25 31S IT <*G> 
013416 001760 BEQ =. INST1 
013420 122427 000015 CMPB (RG) +, #15 CHECK FOR CR 
013424 001413 BEQ T 
013426 105777 166016 2$: STB a$TPS ;TEST FLAG 
013432 100375 BPL $ 
013434 117777 166006 166010 MOVB @$TKB,a@$TPB  _; ECHO CHARACTER 
013442 005303 DEC = «RB ;DID YOU TYPE TOO MANY CHARS ? 
013444 001353 BNE 
013446 104401 _ ,INSTE: TYPE 
013450 015423 MOM =? 
013432 900742 ER “INST1 ;RETRY 
013454 00000 INSTR2: RTI 


CONVERT ASCII STRING TO OCTAL 


natatatatateatatateatateateatatatateteatatatatatatateatatatatatatateteatatatatatatatateatatetlatatateateateatateatatetata 
ROPIPINININININDNYNININDNINYININININININININGNINDINYPNYNINYNINYNINININININININYPININININININPINININNINNYNPNyNy 
0 0 0 0 SY 


013456 011605 .PARAM: MOV (SP),R5 ;PUT CONTENTS OF SP INTO RS 

013460 012567 000162 MOV (R5)+,LOLIM :PUT LOW LIMIT INTO LOLIM 
013464 012567 000160 MOV (R5)+,HILIM :PUT HIGH LIMIT INTO HILIM 
013470 012567 000156 MOV (R5)+,DEVADR § :PUT STORE LOC INTO DEVADR 
013474 112567 000154 MOVB  (R5)+,LOBITS | :PUT MASK INTO LOBITS 
013500 112567 000151 MOVB  (R5)+,ADRCNT = ;PUT COUNT INTO ADRCNT 
013504 010516 MOV R5,(SP) ;RESTORE RETURN ADDR ON STACK FOR RTI 
013506 005005 PARAM1: CLR R 

013510 012704 016136 MOV #INBUF ,R4 

013514 122714 000015 CMPB ss #15, (R4) CR ? 

013520 001420 BEQ PARERR ;YOU TYPED CR TOO SOON ! 

013522 121427 000060 1$: CMPB ss (4) , #60 sLOW LIMIT ASCII 0 

013526 002415 BLT PARERR 

013530 121427 000067 CMPB ss (RG) , #67 :HIGH LIMIT ASCII 7 

013534 003012 BGT PARERR 

013536 142714 000060 BICB #60, (R4) sCONVERT TO OCTAL 

013542 152405 BISB = (R4S+, RS SSTORE AWAY ITS AN OK CHAR 
013544 122714 000015 CMPB «#15, (R4) “CR ? 

013550 001414 BEQ LIMITS :NOW CHECK FOR HIGH SLOW LIMIT CONDS 
013552 006305 ASL RS SALLOCATE ROOM FOR NEXT CHAR 
013554 006305 ASL R5 

013556 006305 ASL R5 

013560 000760 BR: 1$ 

013562 122714 000015 PARERR: CMPB #15, (R4) CR? 


|CNDUS=A MACY11_30(1046) 14-DEC=82 09:59 PAGE 61-47 


CNDUSA.M11 =. 30-OCT-82 10:55 TYPE ROUTINE SEQ 0061 
/ (2) 013566 001003 BNE 1208 
(2) 013570 005737 013022 TST aaRDSw :CK SWR USED 
(2) 013574 001023 BNE PARTI 
(2) 013576 104407 120$: INSTER ;RETRY 
| (013600 000742 BR PARAM! 
or :TEST TO SEE IF NUMBER IS WITHIN LIMITS 
/ (2) 013602 020567 000042 LIMITS: CMP RS,HILIM 
| (2) «013606 «101365 BHI PARERR ;THE # IS TOO HIGH 
| (2) 013610 020567 000032 CMP R5,LOLIM 
| 2) 013614 103762 BLO PARERR ;THE # IS TOO LOW 
| (2) 013616 136705 000032 BITB LOBITS,R5 :TEST BY MASKINGTHE # 
| (2) 013622 001357 BNE PARERR 
| (2) :STORE NUMBER AT SPECIFIED ADDRESS 
| (2) 013624 016704 000022 MOV DEVADR,R4 3GET STARTING ADDR OF 
| (2) 013630 010524 1$: MOV R5, (R4)+ ‘STORE AT THIS ADDR 
(2) 013632 062705 000002 ADD #2, 
(2) 013636 105367 000013 DECB § ADRCNT ;HOW MANY TIMES + 2 ? 
(2) 013642 001372 BNE 1$ 
(2) 013644 000002 PARTI: RT 
(2) 013646 LOLIM: 0 
(2) 013650 000000 HILIM: 0 
(2) 013652 DEVADR: 0 
(2) 013654 000000 LOBITS: 0 
(2) 013655 ADRCNT=LOBITS+1 
(2) :SAVE PC OF TEST THAT FAILED AND RO-RS 
(2) 013656 016667 000004 165242 .SAVOS: MOV 4(SP), SAVPC 
(2) ZSAVE RO-R5 
(2) 013664 010567 165604 svOS5: MOV R5,$REGS 
(2) 013670 010467 165576 MOV R4, SREGS 
(2) 013674 010367 165570 MOV R3,$REG3 
(23. 013700 010267 165562 MOV R2,$REG2 
(2) 013704 010167 165554 MOV R1,$REG1 
(2) 013710 165546 MOV RO, $REGO 
(2) 013714 000002 RTI 
(2) ZRESTORE RO-RS 
(2) 013716 016700 165540 .RESOS: MOV SREGO,RO 
(2) 013722 016701 165536 MOV SREG1,R1 
(2) 013726 016702 165534 MOV SREG2,R 
(2) 013732 016703 165532 MOV SREG3,_R 
(2) 013736 016704 165530 MOV SREG4 RS 
(2) 013742 016705 165526 MOV SREGS,RS 
(2) 013746 000002 RTI 
(2) ;CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 
(2) 013750 104401 .CONVR: TYPE 


in ne + ee ee + 


kK 5 
/CNDUS=A MACY11_30(1046) 14=DEC=82 09:59 PAGE 61-48 


_CNDUSA, M11 = 30-OCT-82 10:55 TYPE ROUTINE SEQ 0062 
| (2). 013752 015427 MCRLF ;CR LF 
| (2) 0137546 017601 000000 MOV a(SP),R1 gPICk UP DATA POINTER 
 (2)--013760 062716 000002 ADD #2,(SP) ;SET UP SP FOR RTI 

(2) 013764 012167 000130 MOV (Ri)+,WROCNT | ;PICK UP # OF WORDS FROM TABLE 
| = (2)--«013770 112167 000126 1$: MOVB (R1)+.CHRCNT :PICK UP # OF CHARS FROM TABLE 
| (2) 013774 112167 000123 MOVB (R1)+,SPACNT | :PICK UP # OF SPACES FROM TABLE 
| (3) 014000 013167 000120 MOV @(R1)+,BINWRD :PICK UP ADDRESS OF 
| (2) 014004 016704 000114 2$: MOV BINWRD,R4 + SAVE 

(2) 014010 116705 000106 MOVB = CHRCNT.R5 : SAVE 
| (2) 014014 012700 016200 MOV #TEMP,RO 3STARTING ADDRESS OF TEMP BLOCK 

(2) 014020 010403 3$: MOV R RS SAV 
| = (2), 14022 042703 177770 BIC #177770,R3 :CLR OUT UPPER BITS .. SAVE CHAR 

(2) 014026 062703 000260 ADD #360, “a :CONVERT TO ASCII 

(2) 014032 110320 MOVB = R3, (RO) + :STORE AWAY 

(2) 014034 006204 ASR RG :SHIFT FOR NEXT # 

(2) 014036 006204 ASR RG ‘DITTO 

(2) 014040 006204 ASR RG :DITTO 

(2) 014042 005305 DEC RS [DEC CHAR COUNT 

(2) 014044 001365 BNE 33 *DO IT AGAIN 

(2) 014046 012703 016242 MOV WMDATA,R3 OA TARTING ADDRESS OF MDATA BLOCK 

(2) 014052 114023 4$: MOVB = = (RO) , (R3) + SREVERSE THE ORDER OF NUMBERS 

(2) 014054 105367 000042 DECB CHRCNT ;DEC CHAR COUNT 

(2) 014060 001374 BNE 4$ *DO IT AGAIN ? 

(2) 014062 105767 000035 TSTB SPACNT ;HOW MANY SPACES ? 

(2) 014 001405 BEQ 6$ :TYPE # IF BR =0 

(2) 014070 112723 000240 5$: MOVB #240,(R35+ :""SPACE’’ IN ASCII 

(2) 014074 105367 000023 DECB SPACNT ;DEC # oF SPACE COUNT 

(2) 014100 001373 BNE $ 

(2) 014102 105013 6$: CLRB © (R3)~—Ss S INSERT 0" FOR TTY OUTPUT ROUTINE 

(2) 014104 104401 TYPE 

(2) 014106 016242 MDATA aus MESSAGE 

(2) 014110 005367 000004 DEC RDCNT ;HOW many aS ? 

(2) 014114 001325 BNE "3 *DO THIS ROUTINE AGAIN IF NOT EQUAL TO 0 

(2) 014116 000002 RTI :RETURN TO PROGRAM 

(2) 014120 000000 WRDCNT: 0 

(2) 014122 000000 CHRCNT: 0 

(2) 014123 SPACNT=CHRCNT+1 

(3) 014124 000000 BINWRD: 0 

(2) COMPARE THE FIRST CHARACTER, IN THE TELETYPE INPUT 

(2) [BUFFER TO THE CHARACTERS ' Foyt 

(2) Z1F THE CHARACTER IS ‘'N'' CLEAR’ THE FLAG 

(2) TIF THE CHARACTER IS “'Y' SET THE FLAG 

(2) 014126 017605 000000 . SETFLG:MOV a(sP).RS 

(2) 014132 122767 000116 001776 CMPB so #"N, INBUF sIS IT "NW ? 

(2) 014140 001002 BNE 1$ 

(2) 014142 105015 CLRB = (RS)_~S—sé« 000 

(2) 014144 000406 BR 2$ 

(2) 014146 122767 000131 001762 1S: CMPB es #'Y,, INBUF z1S 17 "Y"* 2 

(2) 014154 001005 BNE 

(2) 014156 112715 177777 MOVB = #=1, (RS) 3377 

(2) 014162 062716 000002 2$: ADD #2, (SP) 

(2) 014166 000002 RTI 

(2) 014170 104407 3$: INSTER ;RETRY 


CNDUS=A_MACY11_30(1046) 14=DEC-82 09:59 PAGE 61-49 
‘CNDUSA.M11 30-OCT-82 10:55 TYPE ROUTINE SEQ 0063 


(2) 014172 000755 BR .SETFLG 

.SBTTL ERROR HANDLER ROUTINE 

( ) SRRAAAAAEREAAEREEEEAEEE EERE EEE ERE EAEEEEEEREEEERERERERREEEEERKEEE 
(2) tSTHIS ROUTINE WILL INCREMENT THE ERROR FLAG AND THE ERROR COUNT, 
(3) :*SAVE THE ERROR ITEM NUMBER AND THE ADDRESS OF THE ERROR CALL 
(2) :*AND GO TO SAVIT ON ERROR 

(2) sSTHE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 

(2) *SW13=1 INHIBIT ERROR TYPEOUTS 

(2) 7*SW10=1 BELL ON ERROR 

(2) *SWO9=1 LOOP ON ERROR 

(2) s*CALL 

(2) 7* ERROR N ::ERROR=EMT AND N=ERROR ITEM NUMBER 

(2) 014174 SERROR: 

(2) 014174 105267 165203 7$: INCB = SERFLG iiSET THE ERROR FLAG 

(2) 014200 001775 BEQ 7$ ON'T LET THE FLAG GO TO ZERO 

(2) 014202 016777 165174 165232 MOV STSTNM,aDISPLAY $EDISPLAY TEST NUMBER AND ERROR FLAG 
(2) 014210 032777 002000 165222 BIT #B1T10.aSWR :3BELL ON ERROR? 

(2) 014216 001402 BEQ 1$ SINO - SKIP 

(2) 014220 104401 001516 TYPE SBELL 3 ¢RING BELL 

(2) 014224 005267 165162 1S: INC $ERT :COUNT THE NUMBER OF ERRORS 

(2) 014230 011667 165162 MOV (SP) -Sennec SIGET ADDRESS OF ERROR INSTRUCTION 
(2) 014234 162767 000002 165154 SUB #2, SERRPC 

(2) 014242 117767 165150 165144 MOVB aSERRPC,S$ITEMB ;;STRIP AND SAVE THE ERROR ITEM CCDE 
(2) 014250 032777 020000 165162 BIT #B1T13,aSWR 3 SKIP TYPEOUT IF SET 

(3) 014256 001004 BNE 208 ::SKIP TYPEOUTS 

(2) 014260 004767 000072 JSR PC,SAVIT £:G0 TO USER ERROR ROUTINE 

(2) 014264 104401 001523 TYPE  ,$CRLF 

(2) 014270 20S: 

(2) 014270 122767 000001 165250 CMPB #APTENV,SENV ;;RUNNING IN APT MODE 

(2) 014276 001007 BNE 2$ 22NO te APT ERROR REPORT 

(2) 014300 116767 165110 000004 MOVB SITEMB. 218 *SET ITEM NUMBER AS ERROR NUMBER 
(2) 014306 004767 163504 JSR PC,$AT <TREPORT: FATAL ERROR TO APT 

(2) 014312 000 21$: .BYTE 0 

(2) 014313 000 “BYTE 0 

(2) 014314 000777 22$: BR 228 z;APT ERROR LOOP 

(2) 014316 005777 165116 2$: TST aSWR + HALT RROR 

(2) 014322 100001 BPL 3$ S:SKIP IF FONT INUE 

(2) 014324 000000 HALT S:HALT ON ERROR! 

(2) 014326 032777 001000 165104 3$: BIT #B1T09,aSwWR LOOP ON ERROR SWITCH SET? 

(2) 014334 001402 BEQ 4 :BR IF NO 

(2) 014336 016716 165046 MOV SLPERR, (SP) :CFUDGE RETURN FOR LOOPING 

(2) 014342 005767 165146 4$: TST SESCAPE 2; CHECK FOR AN ESCAPE ADDRESS 

(2) 014346 001402 BEQ ::BR IF NONE 

(2) 014350 016716 165140 = MOV SESCAPE,(SP) | ::FUDGE RETURN ADDRESS FOR ESCAPE 
(2) 014354 000002 RTI RETURN 

(2) 014356 010067 164546 SAVIT: MOV RO,HLDO 

(2) 014362 010167 164544 MOV R1.HLD1 

(2) 014 010267 164542 MOV R2,HLD 

(2) 014372 010367 164540 V R3,HLD 

(2) 014576 010467 164536 MOV R4.HLDS 

(2) 014402 010567 164534 MOV R5.HLDS 

(2) 014406 016767 164770 164530 MOV $TSTNM,HLD6 


e 


or eee -- — -_— — ee ++ - 
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ENDUSA. M11. 30-OCT-82 10:55 ERROR HANDLER ROUTINE SEQ 0064 
| 
| (2) 
| (3) .SBTTL ERROR MESSAGE TYPEOUT ROUTINE 
(4) FARRAR AERERE EERE EEE EEE AE EEEEEERAEEEREREREEEEREEEREEEEEREEREEE 
| (3) STHIS ROUTINE USES THE “ITEM CONTROL BYTE" (S1TEMB) T0 DETERMINE WHICH 
| (3) S*ERROR IS TO BE REPORTED. IT THEN OBTAINS, FROM THE ‘ERR R TABLE" (SERRTB), 
| (3) :*AND REPORTS THE” SPPROPRIATE INFORMATION CONCERNING THE RPRRO 
(3) 014614 SERRTYP: 
(3) 014414 104401 001523 TYPE  ,$CRLF rr"'CARRIAGE RETURN’ & “LINE FEED’ 
(3) 014420 010046 MOV RO, =(SP) T:SAV 
(3) 014422 005000 CLR RO S:PICKUP THE ITEM INDEX 
(3) 014424 153700 001414 BIS8 a#SITEMB,RO 
(3) 014430 001004 BNE 1$ ze1f ITEM NUMBER IS ZERO, JUST 
(3) sTYPE THE PC OF THE ER ROR 
(4) 014432 016746 164760 MOV SERRPC,-(SP)  ?:SAVE SERRPC FOR TYPEOUT 
(4) 3ERROR ADDRESS 
(4) 014436 104402 TYPOC 3360 TYPE=-OCTAL ASCIICALL DIGITS) 
(3) 014440 000426 BR 6$ T OUT 
(3) 014442 005300 1$: DEC RO 3 SADJUST THE INDEX SO THAT IT WILL 
(3) 014444 006300 ASL RO 3: WORK FOR THE ERROR TABLE 
(3) 014446 006300 ASL RO 
(3) 014450 006300 ASL RO 
(3) 014452 062700 001652 ADD #SERRTB RO ::FORM TABLE POINTER 
(3) 014456 012067 000004 MOV )+,28 [:PICKUP “ERROR MESSAGE” POINTER 
(3) 014462 001404 BEQ $3° +:SKIP TYPEOUT IF NO POINTER 
(3) 014464 104401 TYPE [:TYPE THE ‘ERROR MESSAGE 
(3) 014466 000000 2$: .WORD 0 3: ERROR MESSAGE” POINTER GOES HERE 
(3) 014470 104401 001523 TYPE  ,S$CRLF i: CARRIAGE RET & LINE FEED 
(3) 014474 012067 000004 3S: MOV (RO)+,4$ S:PICKUP "DATA YEADER" POINTER 
(3) 014500 001404 BEQ 5$ SKIP UF YPEOUT IF 0 
(3) 014502 104401 TYPE Z:TYPE THE “DATA HEADER’ 
(3) 014504 000000 4$: «WORD 0 DATA H HEADER” ‘POINTER GOES HERE 
(3) 014506 104401 001523 TYPE  ,$CRLF iE CARRIAGE RE RETURN’ & ‘LINE FEED" 
(3) 014512 011000 55: MOV (RO) RO PICKUP DATA TaBLe POINTER” 
(3) 014514 001004 BNE 7$ $:G0 TYPE THE DATA 
(3) 014516 012600 6$: MOV (SP)+,RO S:RESTORE RO 
(3) 014520 104401 001523 TYPE SCRLF i: "CARRIAGE RETURN’ & "LINE FEED’ 
(3) 014524 000207 RTS PC + :RETURN 
(3) 014526 7$: 
(4) 014526 013046 MOV @(RO)+,-(SP) —_; ;SAVE @(RO)+ FOR TYPEOUT 
(4) 014530 104402 TYPOC 360 TYPE~=OCTAL ASCIICALL DIGITS) 
(3) 014532 005710 TST (RO) EHS THERE ANOTHER NUMBER? 
(3) 014534 001770 BEQ 6$ ‘BR IF NO 
(3) 014536 104401 014544 TYPE 8$ tITYPE TWO(2) SPACES 
(3) 014542 000771 BR $ 3;LOOP 
(3) 014544 020040 000 8$: -ASCIZ :a $:TWO(2) SPACES 
(3) 014550 VEN 
(2) .SBTTL BINARY TO OCTAL (ASCII) AND TYPE 
(3) FERRER AAAEREEEREEEEAE EA EEE RAE EEEAE AEE EEEREEEEAEEEEEEREEEREEEEEEE 
(2) tSTHIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 6-DIGiT 
(2) S*OCTAL (ASCII) NUMBER AND TYPE IT. 
(2) ie$t YPOS-=-ENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 


(ee ee ee 
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017646 saa 
116667 000001 
112667 000207 
062716 000002 


2 000001 
2767 000006 
2767 000005 
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6 

6 
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116704 000125 
000012 
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RAR AR AR AAR AR RA AA AAR AR RRA RA AAR AR AAA AR A RASA AAA AA AAA ALARA AAA 
PROPONINININININDNINYNINYINININYININININYINININININGPONNGNININININININPINININYININININPYNININININI PN Popofnofnorys 


Sooojlcooeoeo 
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wu 


4 
367 000032 
347 


PS 
o 


000211 


000171 
000165 
000154 


N 5 
BINARY TO OCTAL (ASCII) AND TYPE 


7* MOV NUM,=(SP) + ;NUMBER TO 1 a 

3* -BYTE N tINeT T FOR RUMBER OF DIGITS TO TYPE 
3* -BYTE ™ 33M= OR 

3* 331=TYPE LEADING ZEROS 

- 320=SUPPRESS LEADING ZEROS 


3 *$TYPON----ENTER — TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 
ie$TYPOS OR $TYPO 


;#CAL 
3* MOV NUM, =(SP) :NUMBER TO BE TYPED 
:* TYPON tICALL FOR TYPEOUT 
j+$TYPOC-—-ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
. MOV NUM, =(SP) s;NUMBER TO BE TYPED 
* TYPOC S:CALL FOR TYPEOUT 
STYPOS: MOV a(SP),-(SP) z:PICKUP THE MODE 
MOVE 1(SP),S$OFILL  ::LOAD ZERO FILL SWITCH 
MOVB  (SP)+,$OMODE+1 ::NUMBER OF DIGITS TO TYPE 
ADD #2, (SP) T:ADJUST RETURN ADDRESS 
BR $TYPON 
$TYPOC: MOVB #1,$0FILL z:SET THE ZERO FILL SWITCH 
MOVB #6,$OMODE+1 t:SET FOR SIX(6) DIGITS 
STYPON: MOVB #5.$OCNT t:SET THE ITERATION COUNT 
MOV R3.-(SP) TISAVE R3 
MOV R4,=(SP) ZESAVE Ré 
MOV R5.-(SP) *SAVE RS 
MOV SOMODE+1 .R4 ?:GET THE NUMBER OF DIGITS TO TYPE 
ADD #6 RG $3 SUBTRACT I FOR MAX. ALLOWED 
MOVB 4. $OMODE [SAVE IT FOR U 
MOVB $0FILL,R4 S:GET THE “ZERO Pitt SWITCH 
MOV 12(SP).R5 ::PICKUP THE INPUT NUMBER 
CLR R3 Z:CLEAR THE OUTPUT WORD 
1$: ROL RS 33ROTATE MSB INTO "'C"* 
2$: ROL R5 ::FORM THIS DIGIT 
ROL RS 
ROL R5 
MOV R5,R3 
3$: ROL R3 ::GET LSB OF THIS piGIT 
DECB  $OMODE 33TYPE THIS DIGIT? 
BPL F NO 
BIC , #177770,R3 $iGET RID OF JUNK 
BNE’, 4$ TEST FOR 
TST RG ;} SUPPRESS THIS 0? 
BEQ 5$ 
4$: INC RG : DON? 1 SUPPRESS ANYMORE 0°S 
BIS #'0,R3 MAKE THIS DIGIT ASCII 
5$: BIS #° [R3 + MAKE ASCII vit NOT ALREADY 
MOVB = R3,, 8 z:SAVE YPING 
TYPE ag TYPE RMS DIGIT 
7$: DECB «=s-«s SOCCNT Y 


BGT 2s BR IF MORE TO DO 


SEQ 0065 


tieeere pateprncactaeeasenepiatt 


B 6 


{CNDUS=A MACYT1_30(1046) _14-DEC=82 09:59 PAGE 61-52 
(CNDUSA.M11 —-30=0CT=82 10:55 BINARY TO OCTAL (ASCII) AND TYPE 
| (2) 014742 002402 BLT © 6$ :3BR_IF_DONE 
| 014744 005204 INC RG ;SINSURE LAST DIGIT ISN'T A BLANK 
| 014746 000744 R 33G0 DO THE LAST DIGIT 
| 014750 012605 6$: MOV —(SP)+,R5 ZZRESTORE R5 
| 014752 012604 MOV = (SP) +, RG ZRESTORE Ré 
014754 012603 MOV (SP) +,R3 Z RESTORE R3 
014756 016666 000002 000004 MOV = 2(SP),4(SP) 3 ;SET THE STACK FOR RETURNING 
014764 012616 MOV = (SP) +, (SP) 
014766 000002 RTI :RETU 
014770 000 8s BYTE 0 C STORAGE FOR ASCII DIGIT 
014771 000 “BYTE 0 Z:TERMINATOR FOR TYPE ROUTINE 
014772 000 SOCNT: .BYTE 0 SOCTAL DIGIT COUNTER 
| 014773 000 SOFILL: .BYTE 0 33ZERO FILL Swi 
| 014774 000000 SOMODE: .WORD 0 NUMBER OF DIGITS TO TYPE 
| ZENTER HERE ON POWER FAILURE 
014776 SPWRDN: 
014776 010046 -PFAIL: MOV —-RO, = (SP) ;SAVE RO-R5S ON PROCESSOR STACK 
015000 010146 MOV = R1,=(SP) 
015002 010246 MOV ——-R2,=(SP) 
015004 01034 MOV —-R3,=( SP) 
015006 010446 


12 016746 163006 
10667 164074 
015034 162774 


RRR A RRA RRA RAR AAR RRA AR ARARARAAR AAA RA AARAR AR SAAR AAR RAR AR AAAAA 
ROPININDINININYINYNINYGNDNYDNYNIPUNGNINININPUNINONINYAINNYNINGNIPUNINYNYNGNI NPN Nonny nonononononspononongfy 
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a 
N 





V R5,~(SP) 
MOV 24,-(SP) 
MOV P,SAV SAVE STACK POINTER 


Ss SP 
MOV WRESTART ,24 ;SET UP FOR POWER UP TRAP 
ed HALT ON POWER DOWN NORMAL 


sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


015034 016706 164056 RESTAR: MOV SAVSP,SP RESTORE STACK POINTER 
015040 012605 MOV (SP)+,R5 RESTORE RO-RS5 
015042 012604 MOV (SP)+,R4 

015044 012603 MOV (SP)+,R3 

015046 012602 MOV (SP) +,R2 

015050 012601 (SP)+,R1 

015052 012600 MOV (SP)+,RO 

015054 012767 014776 162742 MOV #.PFAIL,24 SET UP FOR POWER FAILURE 
015062 106427 000300 MTPS #300 

015066 012706 001100 MOV #STACK,SP 

015072 005067 001102 CLR TEMP 

015076 005267 001076 INC TEMP 

015102 001375 BNE 274 

015104 104413 CONVRT 

015106 015130 PF TAB 

015110 104401 TYPE 

015112 015432 MPFAIL 

015114 005067 164263 CLR SERFLG 

015120 005067 164272 ; CLR SERRPC 

Bi21¢s 000177 163754 JMP @RE TURN 

015130 000001 PFTAB: 1 

015132 006 002 -BY 6.2 

015134 000207 RETURN 

015136 005015 042012 053125 MTITLE: .ASCIZ <15><12><12>/DUV11 CNDUS-A TAPE C /<15><12> 


SEQ 0066 
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BINARY TO OCTAL 


MVECTO: 
MREGAD: 


MMULT: 


MLASTD: 


DEVICE: 


MCOW: 


MRANGE : 


MCRLF: . 
MPFAIL: 


MEPASS: 


MR: 
MTSTPC: 


MLOCK: 


MSYNC: 


eASCIzZ 
-ASCIZ 


-ASCIZ 


eASCIZ 


-ASCIZ 
eASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
eASCIZ 


-ASCIZ 


-ASCIZ 


C 6 
(ASCII) AND TYPE 


<15><12>/VEC ADD-/ 
<15><12>/1ST DEV: REC CSR ADD-/ 
<15><12>/MULT DEV ? (Y OR N)-/ 


<15><12>/LAST DEV: REC CSR ADDR=-/ 


/=DEVICE / 
<15><12>/SELECT TO RUN @ACTREG/ 


<15><12>/OVFLO:RETYPE LAST DEV RXCSR ADDS-/ 


9 


<15><12> 
/PFAIL, RESTART AT TEST IN PROGRESS/ 


<15><12>/END OF PASS TAPE C/ 


<15><12>/R/ 
<15><12>/TEST PC-/ 


<15><12>/LOCK ON TEST? (Y OR N)=/ 


<15><12>/# OF SYNC CHARS SELECTED ( 1 OR 2)-/ 


SEQ 0067 


D 6 


CNDUS=A_MACY11_30(1046) 14=DEC=82 09:59 PAGE 61-54 
CNDUSA.M11 30-OCT-82 10:55 BINARY TO OCTAL (ASCII) AND TYPE SEQ 0068 
(2) 015616 051440 046105 041505 
(2) 015624 042524 020104 020050 
(2) 015632 020061 051117 031040 
(2) 015640 026451 000 F 
(2) 015643 015 044412 9701e2 MWIRE6: .ASCIZ <15><12>/1S SEC XMIT SWITCH E55=2 IN? (Y OR N)=/ 
(2) 015650 042523 020103 046530 
(2) 015656 052111 051440 044527 
(2) 0156 041524 020110 032505 
/  €2) 015672 026465 020062 047111 
| = (2), «015700 020077 054450 047440 
, (2) 015706 020122 024516 000055 
(2), 0157714 «005015 051517 051440 MWIRES: .ASCIZ <15><12>/IS SEC REC SWITCH E55-3 IN? (Y OR N)=-/ 
, (2) 015722 041505 051040 041505 
| = (2), 015730 051440 044527 041524 
/ 2) 015736 020110 032505 026465 
, (2) 015744 020063 047111 020077 
| (2) 015752 054450 047440 020122 
| (2) 015760 024516 000055 
' €2) 015764 005015 051511 047440 MWIRE4: .ASCIZ <15><12>/IS OPT CLP ENABLE SWITCH E55=1 IN? (Y OR N)=/ 
| (2) 015772 052120 041440 051114 
(2) 016000 042440 040516 046102 
| (2) 016006 020105 053523 052111 
! =©°€2) 016014 §=044103 042440 032465 
| (2) 016022 030455 044440 037516 
| (2) 016030 024040 020131 051117 
(2) 016036 047040 026451 000 
(2) 016043 015 005012 031510 MEXTJ: .ASCIZ <15><12><12>/H315 CONNECTOR ON ?(Y OR N)-/ 
(2) 016050 032461 pesece 047117 
(2) 016056 042516 0521035 051117 
eh 016064 047440 020116 024077 
(2) 016072 020131 051117 047040 
(2) 016100 026451 000 
(2) 016103 015 020012 043536 MCNTG: .ASCIZ <15><12>/ *G / 
(2) 016110 020040 000 
(2) 016113 040 053523 036522 MMSWR: .ASCIZ / SWR= / 
(2) 016120 020040 000040 
(2) 016124 020040 047040 053505 MMNEW: .ASCIZ / NEW= / 
(2) 016132 020075 000040 
ts) EVEN 
$$} sBUFFERS FOR INPUT-OUTPUT 
(2) 016136 000000 INBUF: 0 
(2) 016200 -=. +40 
(2) 016200 000000 TEMP: 0 
(2) 016242 -=.+40 
(2) 016242 000000 MDATA: 0 
(2) 016304 -=.+40 
(3) -SBTTL SCOPE HANDLER ROUTINESTARS 
(3) 3*THIS ROUTINE CONTROLS THE LOOPING OF SUBTESTS. IT WILL INCREMENT 
(3) :*AND LOAD THE TEST NUMBER(STSTNM) INTO THE DISPLAY REG. (DISPLAY<7:0>) 
(3) 3*AND LOAD THE ERROR FLAG (SERFLG) INTO DISPLAY<15:08> 
(3) s*THE SWITCH OPTIONS PROVIDED BY THIS ROUTINE ARE: 
(3) 3*SW14=1 LOOP ON TEST 
(3) 3*SW11=1 INHIBIT ITERATIONS 
(3) 3*SWO9=1 LOOP ON ERROR 
| 
| 


CNDUS=A MACY11 30/1046) 146=DEC=82 09:59 PAGE 61-55 
‘CNDUSA.M11 30-OCT-82 10:55 SCOPE HANDLER ROUTINESTARS SEQ 0069 
(3) :*SwO08=1 LOOP ON TEST IN SWR<7:0> 
(3) = *CALL 
(3) 3* SCOPE 3; SCOPE=I0T 
(3) 016304 SSCOPE: 
(3) :SCOPE LOOP AND INTERATION HANDLER 
(5) 016304 SCOPE: 
(5) 016304 004767 174376 JSR PC, CKSWR 
(5) 016310 005067 163102 CLR SERRPC ZCLEAR LAST ERROR PC 
(5) 016314 022716 003376 CMP #TST142,(SP) | :IS SCOPE AT BEGINING OF TEST 1? 
(3) 016320 001422 BEQ $XTSTR ‘YES NO LOOP. 
(5) 016322 032777 040000 163110 TTST: BIT #B1T14,aSWR :THIS CODE IS FOR TESTING FOR BIT 14 
(5) 016330 001412 BEQ 1$ ‘ON LSI WHICH SYSMAC CANNOT HANDLE 
(5) 016332 016767 163044 163046 MOV STSTNM,SLPADR 
(5) 016340 000406 BR 1$ 
(5) 016342 105777 163076 TSTB a$TKS ;KEYBOARD DONE? 
(5) 016346 100123 BPL SOVER F NO 
(5) 016350 017766 163072 177776 MOV aSTKB,-2(SP) CLEAR DONE BIT 
(3) 016356 032777 040000 163054 1$: BIT #B1T14,aSWR 3 SLOOP ON PRESENT TEST? 
(3) 016364 001114 BNE SOVER YES IF SwW14=1 
(3) -HHHHASTART OF CODE FOR THE XOR téstensenne 
(3) 016366 000416 $XTSTR: BR 6$ 31F RUNNING ON THE SXOR’: TESTER CHANGE 
(3) SI THIS INSTRUCTION TO A "NOP*' (NOP=240) 
(3) 016370 013746 000004 MOV @#ERRVEC,-(SP) ::SAVE THE CONTENTS OF THE ERRON” VECTOR 
(3) 016374 012737 016414 000004 MOV W5$,QNERRVEC = 3;SET FOR TIMEOUT 
(3) 016402 005737 177060 TST OUT ON XOR? 
(3) 016406 012637 000004 MOV (SP) +, aWERRVEC i ERESTORE THE ERROR VECTOR 
(3) 016412 000463 BR SSVLAD TO THE NEXT TEST 
(3) 016414 022626 5$: CMP (SP)+, (SP)+ ‘CLEAR THE STACK AFTER A TIME OUT 
(3) 016416 012637 000004 MOV (SP) +, a#ERRVEC 37RESTORE THE ERROR VECTOR 
(3) 016422 000423 BR 7$ LOOP ON THE PRESENT TEST 
(3) 016424 6$::MHHAHEND OF CODE FOR THE XOR™ tESTERMAMH 
(3) 016424 032777 000400 163006 BIT #B1T08,aSwWR ::LOOP ON SPEC. TEST? 
(3) 016432 001404 BEQ $ ::BR IF 
(3) 016434 127767 163000 162740 CMPB ss @SWR, STSTNM t:0N THE RIGHT TEST? SWR<7:0> 
(3) 016442 001465 BEQ SOVER 7:8 Y 
(3) 016444 105767 162733 2s: TSTB = SERFLG S:HAS AN ERROR OCCURRED? 
(3) 016450 001421 BEQ $ 33 F 
(3) 016452 126767 162737 162723 CMPB $ERMAX,SERFLG ::MAX. ERRORS FOR THIS TEST OCCURRED? 
(3) 016460 101015 BHI ::BR IF NO 
(3) 016462 032777 001000 162750 BIT #B1T09,aSwR +:LOOP ON ERROR? 
(3) 016470 001404 BEQ ::BR IF NO 
(3) 016472 016767 162712 162706 7$: MOV SLPERR,SLPADR ::SET LOOP ADDRESS TO LAST SCOPE 
(3) 016500 000446 BR SOVER 
(3) 016502 105067 162675 4$: CLRB = SERFLG : :ZERO THE ERROR FLAG 
(3) 016506 005067 163000 CLR STIMES [CLEAR THE NUMBER OF ITERATIONS TO MAKE 
(3) 016512 000415 BR 1$ S:ESCAPE TO THE NEXT TEST 
(3) 016514 032777 004000 162716 3$: BIT #B1T11,aSWR 33 INHIBIT ITERATI 
(3) 016522 001011 BNE F YES 
(3) 016524 005767 163004 TST $PASS 331F FIRST PASS OF PROGRAM 
(3) 016530 001406 BEQ 1$ INHIBIT ITERATIONS 
(3) 016532 005267 162646 INC SICNT S INCREMENT ITERATION COU 
(3) 016536 026767 162750 162640 ° CMP STIMES,SICNT | ::CHECK THE NUMBER OF | SURATIONS MADE 


/CNDUS=A_MACY11_30(1046) 


14=DEC=82 09:59 PAGE 61-56 
SCOPE HANDLER ROUTINESTARS 


(CNDUSA. M11 30-OCT-82 10:55 

(3) 016544 002024 
| 3) 016546 012767 000001 
| ¢3) 016554 016767 000056 
' (3) 016562 105267 162614 
| (3) 016566 +4116767 162610 
/ (3) 016574 011667 162606 
' (3) «016600 011667 162604 
| (3) 016604 005067 162704 
|  €3) 016610 112767 000001 
, (3) 016616 016777 162560 
| (3) 016624 +016716 =162556 
' (5) 016630 000002 
| (5) 016632 001407 
| (5) 016634 000432 
| (3) 016636 000005 
| ©) 

(3) 
| 02) 
| (2) 

(2) 

(2) 

(2) 

(2) 016640 010046 

(2) 016642 016600 000002 

(2) 016646 005740 

(2) 016650 111000 

(2) 016652 006300 

(2) 016654 016000 016674 

(2) 016660 000200 

(2) 

(2) 

(2) 

(2) 

(2) 016662 011646 

(2) 016664 016666 000004 

(2) 016672 000002 

(2) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 

(4) 016674 016662 

(4) 016676 013056 

(4) 016700 014574 

(4) 016702 014550 

(4) 016704 014610 

(2) 

(2) 

(3) 016706 013034 

(3) 016710 013340 

(3) Ol6¢i2 013446 

(3) 016714 013456 


162630 
162730 


162736 


000002 


BGE 
1$: MOV 
MOV 
SSVLAD: INCE 
MOVB 
MOV 
MOV 
CLR 
MOVB 
SOVER: MOV 
MOV 
4$: RTI 
BRW: 1407 
BRX: 432 


SOVER 
#1,S1CNT 
SMXCNT,STIMES 
STSTNM 
STSTNM,STESTN 
(SP) ,SLPADR 
(SP) ,SLPERR 
SESCAPE 

#1, SERMAX 
Ap 


I 
SLPADR, (SP 


SMXCNT: 5 
.SBTTL TRAP DECODER 


_— 


SEQ 0070 


:2BR IF MORE ITERATION REQUIRED 
ZREINITIALIZE THE ITERATION COUNTER 
NUMBER OF IT 


ERATIONS TO DO 
: COUNT ERS 
ISET TEST NUMBER IN APT MAILBOX 
; DRESS 


I 
IN 


; SAVE ADDRESS 

73CL “CE THe ESCAPE FROM ERROR ADDRESS 
ZZ0NLY ALLOW ONE(1) ERROR ON NEXT TEST 
z7;DISPLAY TEST NUMBER 
3sFUDGE RETURN ADDRESS 


3sMAX. NUMBER OF ITERATIONS 


FERRARA EAEEEEEEEEEEAEEEEEEEEEEEREEEEREEEEREEEEREEREERREEEEREEE 


:eTHIS ROUTINE WILL yo THE ~ BYTE OF re **TRAP’* INSTRUCTION 


AND _USE IT 


TO INDEX T 
;*OF THE DESIRED 
:*GO TO THAT ROUTIN 


STRAP: 


HROUGH 


RO,-(SP) 

2(SP) RO 
=(RO) 

(RO) ,RO 

STRPAD(RO) ,RO 

RO 


RAP TABLE FOR THE STARTING ADDRESS 


THE T 
_— THEN USING THE ADDRESS OBTAINED IT WILL 


AVE RO 
Fer TRAP ADDRESS 
UP BY 


K 
SiGeT RIGHT BYTE OF TRAP 
Hated FOR INDEXING 
INDEX TO TABLE 
3:60 TO ROUTINE 


szTHIS IS USE TO HANDLE THE ‘'GETPRI'’ MACRO 
STRAP2: MOV 
MOV 


$TRPAD: g¥ORD 


(SP) ,=(SP) 
4(SP) ,2¢SP) 


-SBTTL TRAP TABLE 


z*THIS TABLE CONTAINS THE en ADDRESSES OF THE ROUTINES CALLED 
7*BY THE "'TRAP’’ INSTRUCTIO 


ROUTINE 


STYPON 


~SCOP1 
- INSTR 
- INSTER 
PARAM 


STRAP2 

33 CALL=TYPE 
33 CALL=TYPOC 
33 CALL=TYPOS 
3; CALL=TYPON 


3;CALL=SCOP1 
73; CALL=INSTR 
77 CALL=iNSTER 
3; CALL=PARAM 


z;MOVE THE PC DOWN 
3:MOVE THE PSW DOWN 
zsRESTORE THE PSW 


TRAP+1(104401) TTY TYPEOUT ROUTINE 

TRAP+2(104402) TYPE OCTAL NUMBER po bey LEADING yeees? 
TRAP+3(104405) TYPE OCTAL NUMBER (NO LEADING ZERO 
TRAP+4(104404) TYPE OCTAL NUMBER (AS PER LAST EALLD 
RAP+5(104405) 

TRAP+6 (104406) 

TRAP+7(104407) 

TRAP+10(104410) 


CNDUS=A MACY11_ 30(1046) 14=DEC=82 09:59 PAGE 61-57 
‘CNDUSA.M11-- 30-OCT-82 10:55 TRAP TABLE SEQ 0071 

(3) 016716 013656 .SAVOS ::CALL=SAVOS — TRAP#11(104411) 

(3) 016720 01371 RES S05 + CALL=RESO5 TRAP+12(104612) 

(3) 016722 0157 38 “CONVRT ::CALL=CONVRT TRAP+13(104413) 

(3) 016726 014126 -SETFLG ::CALL=SETFLG TRAP+14(104414) 
8186 FARA AAAEAAREAEEAEEEEEEAEEAEAEAEAAAARERERAEAEAEEEEREEREEEKEEEE 
8187 SUTILITIES 
8188 3 RAEAEATAAEAAAEAAAAEAEAKAEAAEAAEETAETAAAARAAAARAAARAEAKRARAARAEEKREREREAREARE 
8189 
8190 -THIS UTILITY CALCULATES PRIORITY LEVEL 
8191 016726 006367 000044 DULEV: ASL DUPRT  ;SHIFT LEFT 
8192 016732 006367 000040 L ; 

8193 36 006367 000034 ASL DUPRT : 

8194 016742 006367 0000 ASL DUPRT 

8195 016746 006367 000024 ASL DUPRT 

8196 016752 016767 000020 000020 MOV DUPRT .LESS1 :MOVE THIS TO LESS! 
8197 016760 162767 000001 000012 SUB #1,LESS1 [CREATE LESS 

8198 016766 042767 000037 000004 BIC #37, LESS1 = CLEAR rhove. 
8199 016774 000207 RTS 

8200 016776 000240 DUPRT: PR5 

8201 017000 000200 LESS1: PR4 ZLEVEL TO ALLOW INTERRUPTS 

8203 :NEW DU ADDRESSES 

8204 017002 016767 000126 162702 DUADDR: MOV DUBASE,RXCSR —-: XXXO 

8205 017010 005267 000120 INC DUBAS 

8206 017014 016767 000114 162672 MOV DUBASE,HRXCSR =: XXX1 

8207 017022 005267 000106 INC DUBASE 

8208 017026 016767 000102 162662 MOV DUBASE,RXDBUF § :XXX2 

8209 017034 016767 000074 162660 MOV DUBASE.PARCSR  :XXX2 

8210 017042 005267 000066 INC DUBASE 

8211 017046 016767 000062 162644 MOV DUBASE,,HRXDBUF ;XXX3 

8212 017054 016767 000054 162642 MOV DUBASE.HPARCSR :XXX3 

8213 017062 005267 000046 INC DUBASE 

8214 017066 016767 000042 162632 MOV DUBASE,TXCSR —-s XXX4 

8215 017074 005267 000034 INC 

8216 017100 016767 000030 162622 MOV DUBASE,HTXCSR =: XXX5 

8217 017106 005267 000022 INC A 

8218 017112 016767 000016 162612 MOV DUBASE,TXDBUF § ;XXX6 

8219 017120 005267 000010 INC DUBAS 

8220 017124 016767 000004 162602 MOV DUBASE,HTXDBUF ;XXX7 

8221 017132 000207 RTS PC 

8222 017134 000000 DUBASE: 0 

8224 sTHIS UTILITY POKES THE MAINT DATA BASED UPON THE 
8225 S INFORMATION CONTAINED IN $TMP1 AND IT IS 
8226 *SHIFTED IN BY THE CONTENTS OF SHIFT 
8227 017136 042777 040000 162562 RPOKE: BIC #MTDATA, aTXCSR 

8228 017144 005067 162332 LR 

8229 017150 006067 162324 ROR $TMP1 i FORCE CARR 

8230 017154 006067 162322 ROR S$TMP2  :PICK UP CARRY IN, BIT 15 
8231 017160 006267 162316 ASR $TMP2 :SHIFT INTO BIT 14 

8232 117164 042767 100000 162310 BIC #B1T15,$TMP :CLR BIT 15 
8233 017172 056777 162304 162526 BIS STMP2,aTXCSR  : POKE MAINT DATA 
8234 017200 042777 020000 162520 BIC #CLK,aTXCSR SPOKE CLK 

8235 017206 052777 020000 162512 BIS ACLK.aTXCSR : 

8236 017214 005367 161702 DEC SHIFT 

8237 017220 001346 BNE RPOKE 
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8238 017222 000207 RTS PC 
8239 s THIS ROUT INE CALCULATES ODD PARITY FOR AN 8 BIT CHAR 
8240 017224 016767 162250 162250 ODD8: MOV STMP1,$TMP :SAVE TEMP1 
8241 017232 003067 162246 CLR STMPS’ 
8242 017236 012727 000010 MOV #8.,(PC)+ 
8243 017242 4$: 0 
8244 (017244 006067 162232 1$: ROR $TMP2 
8245 017250 005567 162230 ADC $TMP3 
| 8246 017254 005367 177762 DEC 4$ 
| 8247 017260 001371 BNE 1$ 
8248 017262 006067 162216 ROR STMP3 
| 8249 017266 103404 BCS 
8250 017270 052767 000400 162202 BIS #B1T8,$TMP1 :SET ODD PARITY 
| 8251 017276 000403 BR 
| 8252 017300 042767 000400 162172 28: BIC #8178, $TMP1 ZCLR EVEN PARITY 
| 8253 iinet NOW HAS ODD PARITY CHARACTER 
| 8254 017306 900207 3$: RTS PC 
| 8356 THIS ROUT INE CALCULATES EVEN PARITY FOR AN 8 BIT CHARACTER 
8257 017310 016767 162164 162164 EVENS: $TMP1,$TMP2 :SAVE TEMP1 
8258 017316 005067 162162 CUR $TMP 
8259 017322 012727 000010 MOV #8.,(PC)+ 
8260 017326 000000 4$: 0 
8261 017330 006067 162146 1$: ROR $TMP2 
| 8262 017334 005567 162144 ADC STMP3 
8263 017340 005367 177762 DEC 4$ 
| 8264 017344 001371 BNE 1$ 
8265 017346 006067 162732 ROR STMP3 
8266 017352 103004 BCC 
8267 017354 052767 000400 162116 BIS #B1T8,$TMP1 ZSET EVEN PARITY 
8268 017362 000403 BR 
8269 017364 042767 003400 162106 28: BIC #B1T8,$TMP1 -CLR ODD PARITY 
8270 zSTPt NOW HAS EVEN PARITY CHARACTER 
8271 017372 000207 3$: RTS PC 
8273 017374 062716 000002 TRPREG: ADD #2,(SP) :ALLOW IT TO ‘CRUNCH’ INTO HLT BACK 
8274 :IN MAIN PART OF THE PROGRAM 
8275 017400 000002 RTI 
8276 017402 POINT=. :SAVE POINTER 
(1) 000100 .=100 
(1) 000100 017402 $CLKVEC :LKVEC HANDLER 
(1) 000102 000300 300 : INTERRUPT HANDLER PRI 
(1) 000140 °=140 *BRKVE 
(1) 000140 170000 170000 [ODT START ADDRESS 
(1) 000142 000300 300 :PRIORITY 
(1) 017402 .=POINT “RESTORE POINTER 
(1) 017402 104401 017410 . $CLKVEC: TYPE. CLKMES 
(1) 017406 000000 HAL 
(1) 017410 005015 045514 042526 CLKMES: .ASCIZ Hae 3<12>/LKVEC INTERRUPT = DISCONNECT LIC / 
(1) 017416 020103 047111 042524 
(1) 017424 051122 050125 020124 
(1) 017432 020055 044504 041523 
(1) 017440 047117 042516 052103 
(1) 017446 041524 000040 
8277 :SPECIFIC VECTORS. 
8278 000001 END 
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‘DISPLA 001442 8150#* 8185 
‘DISPRE 000174 81508 
‘DNA = 100000 81504 
‘DNAINT= 000040 81508 
‘DSC = 100000 81504 
DSINTE= 000040 81504 
DSR = 001000 81504 
IDSwR = 177570 81504 
iDTR = 00000 81504 
DT1 002116 81508 
IDTS 002126 81504 
'DUADDR 017002 8150 8185  8204# 
IDUBASE 017134 8150 8185* 8204 8205* 8206 8207* 8208 8209 8210* 8211 8212 8213* 8214 
8215* 8216 8217" 8218  8219* 8220 82224 
DULEV 016726 8150 81914 
DUPRT 016776 8150" 8191% 8192* 8193 8194% 8195" 8196 82004 
DURIS 001740 8150# 8185 
0017 8150# 8185 
DUTIS 001744 81504 8185 
DUTIV 001742 81504 8185 
EIGHT = 81508 8154 8155 8156 8157 8161 8165 8169 8170 8171 £8172 £8173 #8177 
EMTVEC= 30 81504 
EM1 001762 81504 
EM2 002022 81504 
EM3 002043 81504 
EM, 1746 81504 
ERRCNT 001114 81308 
ERRVEC= 000004 150#* 8185« 
VENS 017310 8170 8172 82574 
EVEPAR= 001400 81504 8162 8163 8164 8165 8170 8172 
VPAR = 0004 81504 
FIVE = 000000 8150 8158 8162 8166 8174 8178 8182 
FRMERR= 020000 8150# 8158 8159 8160 8161 
GNS = tteene 8185 
HDXEN = 10 81504 
HILIM 013650 81854 
HLDO 001130 81504 8185+ 
HLD1 ©: 001132 8150# 8185 
HLD 001134 81504 8185 
HLD 001136 81504 8185 
HLD4 001140 8150# 8185+ 
HLDS =—-: 001142 81504 8185* 
HLD6 3 =—-_-« 001144 81504  8185* 
HOLD 001120 81504 
HPARCS 001724 8150# 8212 
RXCSR 001714 8150#  8206* 
HRXDBU 001720 81504 8211 
= 11 81504 8185 
HTXCSR 001730 8150# 8216+ 
HTXDBU 001734 8150# 8220 
F 016136 8150 81854 
INIFLG 001172 81504 
TER= 104407 8150 81854 
INSTR = 104406 150 81854 
INSTR2 013454 81854 
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ONCE 002610 81308 
OPTCLR 001151 1504 
OuT 013014 81854 
OUTCRY Beste 81854 
TMUL 00 81504 
RRUN= 04 81504 
ARAM = 104410 8150 81854 
PARAM] 0135 81854 
PARCSR 00172 8150# 8152* 8153* 8154" 8155* 8156* 8157* 8158*  8159%  8160*  8161*  8162* 8163+ 
8164* 8165* 8166* 8167*  8168*  8169* 8170* 8171% 8172* 8173* 8174* 8175+  8176* 
8177* 8178* 8179% 8180" 8181* 8182+  8183*  8184*  8209* 
PAREN = 001000 81504 ~ 
PARER = 010000 81504 8162 8163 8164 8165 8166 8167 8168 8169 
PARERR 013562 81854 
PARTI 013644 81854 
PASCNT 001112 8150#* 8185* 
PFT 0151 81854 
PIRQ = 177772 81504 
PIRQVE= 000240 81504 
POINT = 017402 82764 
= 012600 81504 
POP1SP= 005726 81504 
POP2SP= 022626 81504 
PRO = 000000 81504 
PRI = 000040 81504 
PR2 = 000100 81504 
PRS = 000140 81504 
PR4 = 000200 81504 8201 
PRS = 000240 81504 8200 
PR6 = 300 81504 
PR? = 000340 81504 
PS = 177776 81504 
PSW == 177776 81504 
PUSHRO= 010046 81504 
PUSH1S= 005746 81504 
PUSH2S= 024646 81504 
PWRVEC= 24 81504#* 
RDSW =: 013022 81854 
RECACT= 004000 81504 
EPLAY 012510 81854 
RESTAR 015034 81854 
RESTRT 012670 81854 
ESVEC= 81504 
ESOS = 104412 81854 
RETURN 001104 81504* 8185 
= 04 81504 
RINTEN= 000100 81504 
ROTADD 001170 81504* 8185+ 
RPOKE 017136 3126 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 8164 
816 8166 8167 8168 8169 8170 8171 8172 8173 8174 8175 8176 8177 
ave gi 8179 8180 8181 8182 8183 8184 82274 8237 
RUNA = *tteee UJ 5678 5862 6003 6417 
RUNB = steeee 5703 5871 6010 6426 
RUNC = 000000 5676# 5728 5879 6017 6435 
RUND = *##eee UJ 5754 5888 6024 6444 
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bj = teeere 5779 5898 6031 6453 
RUNF = seeeee 5804 5908 6038 6462 
(RUNIT 012414 81854 
RXCSR_ 001712 8150 8152* 8153* 8154* 8155* 8156" 8157" 8158*  8159*  8160* 8161*  8162* 8163+ 
8164* 8165* 8166* 8167» 8168* 8169* 8170* S6171* 8172% 81735* 8174* 8175*  8176* 
8177* g173° 8179* 8180* 8181* 8182* 81835* 8184 8185 8204+ 
RXDBUF 001716 8150# 152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 
8164 8165 8166 8167 8168 8169 8170 8171 8172 8173 8208+ 
RXDONE= 000200 81504 
RXERR = 1 8150# 8158 8159 8160 8161 8162 8163 8164 8165 8166 8167 8168 8169 
SAVIT 014356 81854 
SAVPC 001126 8150# 8185» 
SAVSP 001116 81504  8185* 
SAVOS = 104411 81854 
SCOP1 = 104405 81854 
SEND = 000020 81504 
SEREC 001150 81504 
SETFLG= 104414 8150 81854 
SEVEN = 004000 81504 8152 8153 8160 8164 8168 8176 8180 8184 
SEXMIT 001147 81504 
SHIFT 001122 81504 8152* 8153* 8154* 8155*  8156*  8157* 8158*  8159%  8160*  8161*  8162* 8163 
8164* 8165* 8166*  8167* 8168+ 169* 8170* 8171* 8172* 8173* 8174* 8175* 8176+ 
8177* 8178* 8179* 8180* 8181*  8182* 8183+  8184*  8236* 
= 092000 81504 8159 8163 8167 8175 8179 8183 
SPACNT= 014123 81854 
= 902000 81504 
STACK = 001100 81504 8185 
= 10 81504 
STFLG 00117 81504* 
STKLMT= 177774 81504 
STPSYN= 00 81504 8174 8175 8176 3177 8178 8179 8180 8181 8182 8183 8184 
$v05 013664 81854 
SwR 601440 8150#* 8185 
SWREG 000176 81504 8185 
SWREGL 012024 81854 
swO) == 000001 81504 
Sw0OO = 00000; 81504 
SwO1 = 000002 81504 
SWO2 = 000004 81504 
SWwOS = 000010 81504 
SWw04 = 000020 81504 
SwOS = 000040 Bi 308 
SWw06 = 000100 1504 
SwO7 = 000200 81504 
swO8 = 000400 81504 
SWwO9 = 001000 81504 8185 
Swi = 02 81504 
SW10 = 002000 8150# 
SW11 = 004000 81504 
SWwi2 = 010000 81504 
SW13 = 020000 81504 
SW14 = 04 8150# 
SWw15 = 1000 81504 
SW = 0000 8150# 
SW = 000010 81504 
SW4 = 000020 81504 
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SWS == 000040 81504 
SWw6 = 000100 81504 
Sw? == 000200 81504 
Sw8 = 000400 81504 
w9 = 001000 81504 
YNCNO 001146 81504 
SYNEXT= 020000 81504 8152 8153 8154 8155 8156 8157 
SYNINT= 030000 81504 8182 8183 8184 
SYNSCH= 000020 81504 8152 8153 8154 8155 8156 8157 
8164 8165 8166 8167 8168 8169 8170 
8177 8178 8179 8180 8181 8182 8183 
SYSTST= 014000 81504 
ITVE= 000014 81504 
TE 0162 81854 
TKVEC = 000060 81504 
T = 00 81504 
TRAPVE= 000034 8150#* 
TRPREG 017574 82734 
RTVEC= 000014 8150# 
T 00337 8150 81524 8185 
TST10 005230 81594 
TST11 §=©005370 81604 
TST12 005530 81614 
TST13 005670 81624 
TST14 OO} 81634 
TST15 ©0062 81644 
TST16 006360 81654 
TST17 S(O 81664 
$T2 00 81534 
TST20 006 81674 
TST21 007050 81684 
TST22 007220 81694 
TST23. 00737 81704 
TST24 007554 81714 
TST25 007740 81724 
TST26 010074 81734 
TST27 010230 81744 
TST3 004020 81544 
TST 010400 8175# 
TST31 §=©.010550 81764 
TST32 010720 8177# 
TST33 ©=—011070 81784 
ST34 011224 81794 
TST35 §=©011360 81804 
TST36 «= 011514 81814 
TST37 §©011650 81824 
TST4 004232 81554 
TST40 §=—.012020 sis 
TST41 012170 184 
5 444 815 
815 
81 
81 
81 
81 
81 


8172 8173 
8158 8159 
8171 8172 
8184 


8178 


8160 
8173 


8179 


8161 
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8162 
8175 
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LTXDBUF 001732 8150" 8218s 
TXDONE= 000200 8150# 
ITXINTE= 000100 81508 
‘TYPE = 104401 8150 8185# 8276 
TYPOC = 104402 81854 
ITYPON = 104604 81858 
TYPOS = 104403 81858 
USER = 8150# 
VOID = 000001 81508 
WRDCNT 014120 8185#* 
ZERO 012432 81854 
$APTHD 002136 81508 
SASTAT= seeene | 7010 
SATYC 000024 7010# 
$ATY1 000000 7010# 
SATY3 00 7010# 8185 
SATY4 000016 70108 8185 og 
$AUTOB 001434 81508 
ASE 001602 8150# 
$BDADR 001422 81504 
SBDDAT 001436 81508 
$BELL 001516 8150# 8185 
$CDW1 001606 81504 
CDW2 001610 8150# 
SCHARC 013334 8185#« 
SCKSWR= teeeee Y 8185 
$CLKVE 017402 82764 
SCHTAG_ 001400 81508 te 
$CM1 = 000006 8150# 
CM2 = 000014 81504 
$CM3 = 000006 81504 
$CMZ = 000006 8150# 
C 001554 8150# 
SCRLF 001523 8150# 8185 
001612 8150# 
$DDW1 001614 8150# 
$DDW10 001636 8150# 
DW11 001 81504 
$DDW12 001642 8150# 
$DDW13 001 8150# 
$DDW14 001626 8150# 
Dw1S 0016 8150# 
$DDW2 0016 31508 
$DDW3 001620 81508 
Dus 001622 8150# 
$DDWS 001624 8150# 
$DDW6 001626 8150# 
$DDW7 001630 8150# 
$DDWB 001632 81508 
DDW9 001634 8150# 
SDEVCT 001536 8150# 
EVM 001604 81508 
= 000002 68384 
SENDAD 012660 8150 81aS# 
SENV 001546 7010 81598 8185 
SENVM 001547 7010 81504 8185 


Ride sees nL . \ a 


CNDUS=A MACY11_30(1046) 
30-OCT-82 1 


‘CNDUSA.MT1 
'SERFLG 001403 
‘SERMAX 001415 
‘SERROR 014176 
SERRPC 001416 
SERRTB 001652 
'SERRTY 014414 
SERTTL 001412 
ISESCAP 001514 
SETABL 001546 
SETEND 001652 

ATAL 001530 
SFFLG 000244 
SFILLC 001456 


SMXCNT 6636 

$N = 000000 

SNULL 001454 

SNWTST= 

SOCNT 014772 
014774 
01661 


4 
001522 


SCOoOMoooSoO wae 
BRReVz BF 
* ** * ss 


VLLLL“LLLLIPV“e 


104* 


ad 
ww 
So 
= 


SueueE 
SLVVQeee 


©0090 00 Gd Go Co Cd Co Go CO CO O Co Ou Co 
ee ed ed ed ed ed ed OD ded 
~ w 


coco cococococO 
hed atadad aid 


8185 
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81634 
81764 


SEQ 0081 


81644 
81778 
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“CNDUS-A MACY 301046) | 14=DEC=82 09:59 PAGE 62-9 
(CNDUSA.M11  30=OCT=82 10:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0082 
ISRDCHR= teeter UY 8185 
SRDDEC= teense Y 8185 
SRDLIN= eeeeee 8185 
$RDOCT= eeeeee 8185 
$REGAD 001460 8150# 
$REGO 001462 8150#  8185* 
$REG1 0014 8150# 8185* 
$REG2 001466 8;50#  8185* 
$REGS 001470 8150# 8185s 
001472 8150# 8185« 
$REGS 001474 8150"  8185* 
$RIA = eeeeee U 8185 
S$SAVRE= senses U 8185 
S$SCOPE 016304 8150 81854 
$SETUP= 000 8150" 8185 
$STUP = 177777 8150# 
$SVLAD 016562 81854 
SVPC = 002136 8150# 
$SwR = 177400 6497# 8150 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 
8163 8164 8165 8166 8167 8168 8169 8170 8171 8172 8173 8174 8175 
8176 8177 8178 8179 8180 8181 8182 8183 8184 8185 
$SWREG 001550 8150# 
$SWRMK= 000000 8185 
$TESTN 001532 8150#  8185* 
$TIMES 001512 8150#* 8185« 
$TKB 001446 8150# 8185 
$TKS 001444 8150# 8185 
$TMPO 001476 8150# 
$TMP1 001500 8150# 8152* 8153* 8154" 8155" 8156* 8157* 8158* 8159* 8160" 8161" 8162" 8163« 
8164* 8165 8166" 8167* 8168 8169" 8170 8171* 8172* 8173" 8174" 8175" 8176 
Bi77s B178« 8179+ 8180+ BIBIx B1B2* 8185+ 8184s B229* 8240 8250+ 22+ 8257 
$™MP2 001502 8150# 8228* 8230" 8231s 8232* 8233 8240* 82448 8257* 82618 
$™MP3 001504 8150# 8241* 8245* 8248" 8258 8262  8265* 
$TMP4 001506 8150# 
$TMPS 001510 8150# 
SIN = 0 7249% 81524 81534 81544 8155# 8156 81574 8158% 8159% 8160 81614 8162" 81634 
8164" 81654 81664 81674 81684 8169 8170# 81714 81724 81738 81744 81758 81768 
8177# 81784 81794 8180# 81814 81824 81834 81844 
001452 8150#  8185« 
$TPFLG 001457 8150# 8185 
001450 8150# 8185 
P_ 016640 8150 8185# 
$TRAP2 016662 81854 
= 000015 81854 
$TRPAD 016674 81854 
STSTM 002142 8150# 
$TSTNM 001402 8150#* 8185+ 
STYPBN= eeeeee U 8185 
STYPDS= seeeee U 8185 
$TYPE 013056 7010. 81854 
$TYPEC 013270 8185# 
S$TYPEX 013336 81854 
$TYPOC 014574 81854 
$TYPON 014610 81854 
$TYPOS 014550 8185# 
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(CNDUSA.M11 30-OCT-82 10:55 CROSS REFERENCE TABLE == USER SYMBOLS SEQ 0083 
I$UNIT 001540 81504 
'SUNITM 002146 81504 
ISUSWR 001552 81508 
$VECT1 001576 81504 
SVECT2 001600 81504 
SXTSTR 016 81854 
SOFILL 014773 81854 
ISGOCAT= teeees 8185 
: = 017454 7010 8150 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 
8163 8164 8165 8166 8167 8168 8169 8170 8171 8172 8173 8174 8175 
8176 8177 8178 8179 8180 8181 8182 8183 8184 81854 8276# 
| «BEGIN 003310 8150" 8185 
[CONVR 013750 81854 
P 012340 81854 
SINSTE 01344 81854 
“INSTR 013340 81854 
“INST1 013360 81854 
“MSG «013362 81854 
“PARAM 013456 81854 
“PFAIL 014776 8150 81854 
"RESOS 013716 81854 
“SAVO5 01365 81854 
“SCOPE 016304 81854 
"SCOP1 013034 81854 
“SETFL 014126 81854 
"START 002 81504 8185 
“SASTA= seeeee YJ 7010 
"$x = 002136 8150# 


SEQ 0084 
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soo a RRRR , + o 3 
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|CNDUSA.M11 30-OCT-82 10:55 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0085 
‘SGETPA 866754" =8150 
SGETSY 67704 8150 
SHEADE 64 8150 
SINSTR 70114 8185 
1SOB 77628 =©8170 8171 8172 8173 
SMATCH 75714 
RR 74328 
SMRRW 73804 
SMRW 74158 
G 7098# 8185 
SNEED 81034 8185 
SPARAM 7041# 8185 
SPFAIL 7180# 8185 
SPOKE 75544 
SPOKER 7559# 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 8164 8165 
8166 8167 8168 8169 8170 8171 8172 8173 8174 8175 8176 8177 8178 8179 8180 
8181 8182 8183 8184 
SRCNET 80134 
SRECAC 7493# 
72234 8185 
SRESET 7376# 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 8164 8165 
8166 8167 8168 8169 8170 8171 8172 8173 8174 8175 8176 8177 8178 8179 8180 
8181 8182 8183 8184 
SRXACT  7470# 
SSCOPE 683 8185 
SCcOP1 6 8185 
SSETFL 6790% 8185 
SSETVE 65 8150 
SSTART 66774 8150 
SSTRIP 8174 8175 8176 8177 8178 8179 8180 8181 8182 8183 8184 
SYMBO 65154 8150 
SSYNCR 7565# 8158 8159 8160 8161 8162 8163 8164 8165 8166 8167 8168 8169 8170 8171 
8174 8175 8176 8177 8182 8183 8184 
STRPAR 7885# 
STSTNO 684 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 8164 8165 
8166 8167 8168 8169 8170 8171 8172 8173 8174 8175 8176 8177 8178 8179 8180 
8181 8182 8183 8184 
SUNIBU 7359# 
SVARIA 15#@ 8150 
SWORDF 7701# 8158 8159 8160 8161 
SWORDO 76514 8152 8153 8154 8155 8156 8157 
SWORDP 7729% 8162 8163 8164 8165 8166 8167 8168 8169 
SCMRE 81504 
SSCMTM =§©8150# 
SSESCA 17114 81504 
SSNE 16624 8150# 8152 8153 8154 8155 8156 8157 8158 8159 8160 8161 8162 8163 8164 
8165 8166 8167 8168 8169 8170 8171 8172 8173 8174 8175 8176 8177 8178 8179 
8180 8181 8182 8183 8184 
SSET 81854 
SSSETM 81504 
SSSKIP 17464 81504 
-EQUAT 189% 64954 8150 
- HEADE 614 944 
INIT 56584 81504 8276 
SETUP 1213# 64944 8150 
» SWRHI 1044 


1 7 





14- 63-2 

'CNDUSA.M11 30-OCT-82 10:55 CROSS REFERENCE TABLE == MACRO NAMES SEQ 0086 
-SACT1 50644 64964 8150 

-SAPTB = 5109% 64964 81508 

-SAPTH = 537 64964 8150 

-SAPTY 55478 64964 7010 





-SCMTA 1047 64944 8150 
- $0820 

-$0B20 48124 

-$SOIV 5874 

- SEOP 2148 64944 

-SERRO 2700 64954 8185 
-SERRT 28964 6495# 8185 
-SMULT 45234 

-$ 422 64954 

-SRAND 43074 

-SRDDE 38914 

-$RDOC 37978 

-SREAD  3395# 

~SR2AZ = 49584 

- SSAVE 9694 

-$SB2D 47714 

-$SB20 48744 

-SSCOP 24544 64954 8185 
~SSIZE 43614 

-SSUPR 49134 

STRAP 40734 64954 8185 
-STYPB $5608 

~STYPD 2094 

-STYPE 29854 64944 8185 
-STYPO 31124 64954 8185 
-$40CA 9724 

- ABS. 017454 000 
ERRORS DETECTED: 0 

CNDUSA, CNDUSA/CRF /NL : TOC=CNMAC2.SML,CNDUS1.M11,CNDUS2.M11,CNDUSA.M11 
RUN-TIME: 18 17 1 SECONDS 


RUN-TIME RATIO: 90/37=2.4 
CORE USED: 43k (86 PAGES) 


